こんばんは。 >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
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く