ＶＢＡ オートシェイブや図を選択したいのですが

質問

ＶＢＡでシート上にある全てのオートシェイブや図を選択したいのですが
どのようにすればいいでしょうか？

手作業でなら、CTRL+Gでオブジェクトを選択すればできますがVBAで行いたいです。

Sub test()
Dim s As Shape
For Each s In ActiveSheet.Shapes
s.Select
Next
End Sub

をしても、一つずつしか選択できません。
全てを選択状態にしたいです。

回答No.1

keithin · ベストアンサー

こんばんは。

＞CTRL+Gでオブジェクトを選択すればできますが

という操作を「新しいマクロの記録」でマクロに録ってみると、そのまま利用できるマクロが入手できます。

sub macro1()
　activesheet.drawingobjects.select
end sub

あるいはＶＢＡのヘルプを参照してみると、アナタのマクロの正しい書き振りは

sub macro2()
　dim s as shape
　for each s in activesheet.shapes
　　s.select false
　next
end sub

であると判ります。

お礼

ご回答ありがとうございます。