tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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は標準の長方形や円だけでグループ化したものには適用されないのでしょうか。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。