Excel VBA で図形を描く方法について
Excel VBA初心者です。
Excel のオートシェイプで任意の四角を描くには、始点をマウスでクリックし対角にドラッグすれば自由な四角が描けますが、VBAでこれを行なう場合、どのように記述すればいいのでしょうか?。
Excel は2003です。
いろいろ調べてみると…
一例ですが…
Set Shp = WS.Shapes.AddShape(msoShapeRectangle, 50, 50, 100, 40)
このような記述をよく目にします。
恐らくこれは始点(50,50)、四角の大きさ(100,40)となると思います。
私がVBAで描きたいのは、マウスを使った任意の位置と大きさの四角と丸です。
説明が下手で申し訳ありませんが、よろしくお願いします。
お礼
さっそくの回答ありがとうございます。使ってみました。便利に使いこなすにはちょっと時間がかかりそうですが、頑張ります。