オートシェイプの図形の高さ、幅をマクロで変えたい

質問

エクセルのオートシェイプで図形を作って、それをグループ化して、
A1（縦）A2(横)のセルへ数値を入力するとシート１上にあるオートシェイプの長さと幅が変化するようにしたいのです。マクロで出来るでしょうか。
シート上の図形は、Group25　です。
エクセル2010を使用しています。
よろしくお願いします。

回答No.1

okormazd · ベストアンサー

Sub test()

With ActiveSheet.Shapes.Range(Array("Group 25"))
.Top = 100
.Left = 100
.Height = ActiveSheet.Range("A1").Value
.Width = ActiveSheet.Range("A2").Value
End With

End Sub

とか。
図形の名前は間違わないように入れよう。

お礼

ありがとうございました。
思った様な動作で感激です。