タイトル : Re^3: グループ化した図形の塗りつぶし 投稿日 : 2008/02/29(Fri) 18:53 投稿者 : 花ちゃん
Fill プロパティを使って見ては。 http://www.feedsoft.net/excel/tips/vba_61.html Private Sub CommandButton1_Click() Set myDocument = Worksheets(1) With myDocument.Shapes.AddShape(msoShapeRectangle, _ 90, 90, 90, 50).Fill End With With myDocument.Rectangles(1) .ShapeRange.Fill.ForeColor.RGB = RGB(255, 0, 0) .ShapeRange.Rotation = 45 End With End Sub |