すぐに役立つエクセルVBAマクロ集 - FAQ

　　すぐに役立つエクセルVBAマクロ集すぐマク

Excel VBA Macro
FAQ

500連発・組み方講座フォロー

Big Color Pallet

[広告]

Excel VBA Macro

Excel DownLoad

Excel VBA Macro　・　その他　・　FAQ

グループ化した図形の中の一部の図形以外の線の色を変えたいが？

Question 89.2

Excel VBA Borad （掲示板）より

図形描画で、□や○の図形とテキストボックスを使って図形に名称を入れていますが、グループ化して一括変換で色を変えると、線なしで挿入していた文字にも枠線が入ってしまい困っています。
最初に図形とテキストボックスの文字を分けてグループ化しておけば良かったのですが、失敗してしまい、図形と文字が多すぎるため、マクロで、図形の線は図形で色を赤から黒へ一括変換、テキストボックスは線なしで赤から黒へ一括変換ということはできるのでしょうか？
また、グループ化しているものも、一括でグループ化の全取消しとか、図形で描いたもの全て一括指定してグループ化という操作はできますか？
もし、方法があれば教えて下さい。よろしくお願いします。

Answer　　

2008.7.1　永井善王

これで何とかなりませんか。
5行目へ線の色を変えるコードを入れます。

    ActiveSheet.Shapes.SelectAll
    Selection.ShapeRange.Ungroup.Select
    For Each 各図形 In ActiveSheet.Shapes
        If Left(各図形.Name, 8) <> "Text Box" Then
            MsgBox 各図形.Name
        End If
    Next
    Selection.ShapeRange.Group

グループ化を解除してから処理して、グループ化してます。同一シートの中にいくつもグループがある場合は工夫が必要です。
線の色の設定はマクロを記録すればわかりますよ(Excel2003以下)。上手くできたら、お知らせください。