タイトル : Re^4: グループ化した図形の塗りつぶし 投稿日 : 2008/03/03(Mon) 12:00 投稿者 : hanai
> 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 早速の回答を有難うございます。 休日明けの今朝から試しています。 最後から2行目に挿入しましたが「サポートしていません」 arr(6) = .Item(.Count).Name .Range(arr).Group .ShapeRange.Fill.ForeColor.RGB = RGB(255, 0, 0) End With ShapeRange.に代えてRange(arr).とすると arr(6) = .Item(.Count).Name .Range(arr).Group .Range(arr).Fill.ForeColor.RGB = RGB(255, 0, 0) End With グループ化した立体図のうちの長方形の部分だけ着色されましたが 立体図の上面と側面は透明のままでした。 グループ化した立体図の名前を入れるのかなと思うのですが その名前の書き方が判りません。 もしくはfillは標準の長方形や円だけでグループ化したものには適用されないのでしょうか。 |