Home » エクセルマクロ・Excel VBAの使い方 » Shapeオブジェクト » グループ化図形を目立たせるExcelマクロ

グループ化図形を目立たせるExcelマクロ

対象:Excel2007, Excel2010, Excel2013, Windows版Excel2016

「vba グループ化されている図形の書式を変更」
「vbaでグループ化図形の線の色を変える」
という検索でアクセスがありました。

グループ化されている図形をVBAで目立たせたいということです。

どのアプリケーションでの話か分かりませんが、参考になりそうなExcelマクロをご紹介しておきます。

[スポンサードリンク]

グループ化図形を目立たせるサンプルマクロ

以下のSubプロシージャを実行すると、アクティブシートでグループ化された図形の線が赤色になります。


Sub グループ化図形を目立たせる()
 Dim shp As Shape

 For Each shp In ActiveSheet.Shapes
  If shp.Type = msoGroup Then
   shp.Line.ForeColor.RGB = RGB(255, 0, 0)
  End If
 Next shp
End Sub

サンプルマクロの解説

ShapeオブジェクトのTypeプロパティでグループ化図形かどうかを判定できるので、アクティブシート上の全図形にFor Each~Nextループを回して、
 For Each shp In ActiveSheet.Shapes

Shape.Typeプロパティが、msoGroupだったときに、
  If shp.Type = msoGroup Then

線の色を変更しています。
   shp.Line.ForeColor.RGB = RGB(255, 0, 0)

[スポンサードリンク]

Home » エクセルマクロ・Excel VBAの使い方 » Shapeオブジェクト » グループ化図形を目立たせるExcelマクロ

TrackBack:0

TrackBack URL
[スポンサードリンク]

Home » エクセルマクロ・Excel VBAの使い方 » Shapeオブジェクト » グループ化図形を目立たせるExcelマクロ

「Shapeオブジェクト」の記事一覧

検索

Copyright © インストラクターのネタ帳 All Rights Reserved.

.