関数・メソッド

図形を表示/非表示にする【Shape.Visibleプロパティ】【ExcelVBA】

2025.12.21

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

 

関連記事


      


      
      
      

    






  
  
  

  
        
  
  
  


  

    

      コメント