描いた図形に色を塗るマクロを作成したいが?

Question 60. Previous Next
マクロプログラムで図形を描いたのですが、その図形に色を塗りたいのですが、いろいろ調べたんですがよくわかりません、おしえてください。
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
よって、ご質問のマクロは、これを参考にして作成されればよろしいかと思います。
しかし、「いろいろと調べた」ということですから、あなたがお知りになりたいことは、もっと他にあるような気がします。もしそうでしたら、どの点が分からないのか具体的にご連絡くだされば、お答えできるかもしれません。

 

Excel VBA Macro