Shape.Visibleプロパティ
図形(オートシェイプ)を表示したり非表示にするときは Shape.Visibleプロパティ です。
使い方
Shapes(“図形名”).Visible = True/False
表示 → Visible = True
非表示 → Visible = False
トグル → Visible = Not.Visible
図形を表示/非表示にさせるサンプルコード
Public Sub Sample()
'図形を作成
ActiveSheet.Shapes.AddShape(msoShapeOval, 50, 50, 100, 80).Name = "図形 1"
ActiveSheet.Shapes.AddShape(msoShapeOval, 150, 50, 100, 80).Name = "図形 2"
'■図形の表示を切り替える
ActiveSheet.Shapes("図形 1").Visible = False '非表示
ActiveSheet.Shapes("図形 1").Visible = True '表示
'■複数の図形を非表示にする
'複数の図形を選択
ActiveSheet.Shapes.Range(Array("図形 1", "図形 2")).Select
'選択中の図形を非表示にする
Selection.ShapeRange.Visible = False
End Sub
Public Sub Sample2()
'■全ての図形を表示させる
Dim shp As Shape
'ループして全ての図形を表示する
For Each shp In ActiveSheet.Shapes
shp.Visible = True
Next shp
End Sub
Public Sub Sample3()
'■トグル(実行する度に切り替える)
With ActiveSheet.Shapes("図形 1")
.Visible = Not .Visible
End With
End Sub
コメント