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

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

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

No.1 回答者： mu2011 回答日時： 2005/11/17 18:31

以下のマクロは如何でしょうか。

(因みにexcel2000）
Sub Macro1()
ActiveSheet.DrawingObjects.Select
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Line.Visible = msoFalse
End Sub

この回答へのお礼

ありがとうございます。

お礼日時：2005/11/17 19:02

No.2 ベストアンサー 回答者： Wendy02 回答日時： 2005/11/17 19:09

こんばんは。

＞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 という、型があることも知りませんでした。
大変わかりやすい説明ありがとうございます。

お礼日時：2005/11/22 13:16