Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

69799 / 76738

←次へ　｜　前へ→


	【11454】Re:テキストボックスの選択

カド

- 04/3/9(火) 14:58 -


	引用なし

	パスワード

▼IROC さん　回答ありがとう御座います。

以下のコードで添削お願いします。

セルＡ１に”鈴木”と入力してある。
Range("b5:b7")にハンコの形をした図形が作成される。
マクロによりハンコがコピーされているので、貼りたいところにペーストする。

Sub 印鑑()

　　'（円、ｘ位置、ｙ位置、ｘ長さ、ｙ高さ）
　　ActiveSheet.Shapes.AddShape(msoShapeOval, 60, 60, 30, 30).Select
　　
　　'透明に
　　Selection.ShapeRange.Fill.Visible = msoFalse
　　
　　'輪郭線の太さを設定
　　Selection.ShapeRange.Line.Weight = 1.5

　　'ﾗｲﾝを赤色に
　　Selection.ShapeRange.Line.ForeColor.SchemeColor = 10
　　
　　'テキストボックスの追加
　　ActiveSheet.Shapes.AddTextbox(msoTextOrientationVerticalFarEast, 60, 60, 30, 30).Select
　　
　　'背景を透明に
　　Selection.ShapeRange.Fill.Visible = msoFalse

　　'ﾗｲﾝを透明に
　　Selection.ShapeRange.Line.Visible = msoFalse
　　
　　'文字の書き込み
　　Selection.Characters.Text = Range("a1")

　　'（処理開始文字位置、終了文字位置）
　　With Selection.Characters(Start:=1, Length:=3).Font
　　　　.Name = "ＭＳＰゴシック"
　　　　.FontStyle = "太字"
　　　　.Size = 11
　　　　.ColorIndex = 3
　　　　
　　End With
　　
　　'文字を横中央に
　　Selection.HorizontalAlignment = xlCenter
　　

　　'絵としてコピー
　　ActiveSheet.Range("b5:b7").CopyPicture xlScreen, xlBitmap
　　
End Sub

0 hits

▼

【11445】テキストボックスの選択 カド 04/3/9(火) 13:13