|
|
| Excel VBA Macro ・ その他 ・ FAQ |
|
描いた図形に色を塗るマクロを作成したいが？
|
|
|
|
Question 60. |
|
 |
 |
|
|
マクロプログラムで図形を描いたのですが、その図形に色を塗りたいのですが、いろいろ調べたんですがよくわかりません、おしえてください。
Excel2002を使っています。
|
|
Answer |
Copyright (C) 2003.7.15 永井善王 |
|
|
図形を描くマクロは、自動記録で作成しましたか？
そして、描いた図形は ［図形描画］ツールバーにあるオートシェイプでしょうか？
もしそうならば、次のようなコードが記録されていますね？
（このコードは、基本図形のスマイルをワークシートの A5セルの辺りに描いています）
Sub オートシェイプのスマイルを描く()
ActiveSheet.Shapes.AddShape(msoShapeSmileyFace, 11.25, 60#, 62.25, 61.5).Select
End Sub
その図形を選択して色を塗るマクロを、自動記録すると下記のようになります。（コメントは筆者が付けました）
Sub 図形を選択して色を塗る()
ActiveSheet.Shapes("AutoShape 3").Select '図形を選択する
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 47 '塗りつぶし前景色を設定
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.SchemeColor = 64 '線の前景色を設定
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) '線の背景色を設定
End Sub
よって、ご質問のマクロは、これを参考にして作成されればよろしいかと思います。
しかし、「いろいろと調べた」ということですから、あなたがお知りになりたいことは、もっと他にあるような気がします。もしそうでしたら、どの点が分からないのか具体的にご連絡くだされば、お答えできるかもしれません。
|
|
|
|
| |
|
|
