シート上のオートシェイプをすべて非表示にしたい

質問

マクロで
ActiveSheet.Shapes.Visible = False
と作って見ましたが、だめでした。

シート上のオートシェイプをすべて非表示にしたい時は、マクロではどのようにすれば良いでしょうか?
よろしくお願い致します。
Excel2002　WINXP

回答No.2

Wendy02 · ベストアンサー

こんばんは。

＞ActiveSheet.Shapes.Visible = False

Shapes というのは、Shapes というオブジェクトで、Visible プロパティを持っていません。以下のように、それぞれのオートシェイプをピックアップして、ループで非表示にしていきます。

Sub AutoShapesInvisible()
'全てのオートシェイプを非表示にするマクロ
Dim shp As Shape
　For Each shp In ActiveSheet.Shapes
　If shp.Type = msoAutoShape Then
　 shp.Visible = msoFalse
　End If
　Next
End Sub

お礼

ありがとうございます。
Shape という、型があることも知りませんでした。
大変わかりやすい説明ありがとうございます。

回答No.1

mu2011

以下のマクロは如何でしょうか。(因みにexcel2000）
Sub Macro1()
ActiveSheet.DrawingObjects.Select
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Line.Visible = msoFalse
End Sub

お礼

ありがとうございます。