図形を作成するマクロ

質問

Sub test()
ActiveSheet.Shapes.AddShape(msoShapeOval, Selection.Left,Selection.Top, 72, 72).Select
End Sub

アクティブセルの左上に合わせて円を作成するマクロですが。

"Selection"のところに"x"という変数を用いる場合は、どのような宣言が必要になるでしょうか？

ちなみに以下ではエラーになりました。
x = Range(ActiveCell.Address)

回答No.1

GreatDragon · ベストアンサー

こんにちは。

> "Selection"のところに"x"という変数を用いる場合は、どのような宣言が必要になるでしょうか？
Range 型のオブジェクト変数を利用します。
例えば、下記のような感じです。
Sub test()
Dim x As Range
Set x = Range(ActiveCell.Address)
ActiveSheet.Shapes.AddShape(msoShapeOval, x.Left, x.Top, 72, 72).Select
End Sub

お礼

ありがとうございます。

回答No.2

merlionXX

こんな書き方も・・・。

Sub test01()
Dim l, t
l = ActiveCell.Left
t = ActiveCell.Top
ActiveSheet.Shapes.AddShape(msoShapeOval, l, t, 72, 72).Select
End Sub

お礼

ありがとうございます。