![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
Excel VBA初心者です。
Excel のオートシェイプで任意の四角を描くには、始点をマウスでクリックし対角にドラッグすれば自由な四角が描けますが、VBAでこれを行なう場合、どのように記述すればいいのでしょうか?。
Excel は2003です。
いろいろ調べてみると…
一例ですが…
Set Shp = WS.Shapes.AddShape(msoShapeRectangle, 50, 50, 100, 40)
このような記述をよく目にします。
恐らくこれは始点(50,50)、四角の大きさ(100,40)となると思います。
私がVBAで描きたいのは、マウスを使った任意の位置と大きさの四角と丸です。
説明が下手で申し訳ありませんが、よろしくお願いします。
No.1ベストアンサー
- 回答日時:
>私がVBAで描きたいのは、マウスを使った任意の位置と大きさの四角と丸です。
例えばマクロの流れの中でユーザーに操作させたい、という意味でしょうか。
If MsgBox("drawing?", vbYesNo) = vbYes Then
'[四角形(&R)]のコマンドボタン(ID:=1111)を押す動作。楕円(&O)は1119
Application.CommandBars.FindControl(ID:=1111).Execute
'または以下と差し替えても良い。
'Application.CommandBars.FindControl(ID:=1111).accDoDefaultAction
End If
この回答への補足
end-u 様
ご回答、ありがとうございます。
>例えばマクロの流れの中でユーザーに操作させたい、という意味でしょうか。
そうです。その通りです。
説明不足で申し訳ありません。
end-u 様のご回答を早速試してみました。
"drawing?"とメッセージが出て、「はい」を選択しますが何も起こらず「はい」を押した瞬間に終了してしまいます。
Public Sub a1()
If MsgBox("drawing?", vbYesNo) = vbYes Then
'[四角形(&R)]のコマンドボタン(ID:=1111)を押す動作。楕円(&O)は1119
Application.CommandBars.FindControl(ID:=1111).Execute
'または以下と差し替えても良い。
'Application.CommandBars.FindControl(ID:=1111).accDoDefaultAction
End If
End Sub
現在の記述です。
何か足りないのでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) ランダムで四択の問題を作る場合にvbaで何を学べばいいでしょうか。 1 2022/04/14 16:45
- 画像編集・動画編集・音楽編集 medibang での文字の整列の仕方 1 2023/06/02 06:38
- Visual Basic(VBA) 指定列最終行までのスペースを改行するVBAについて 2 2022/06/01 19:50
- ノートパソコン Open Office.orgのDrawで描いた図形の塗りつぶしをしたい 1 2022/03/22 19:24
- Visual Basic(VBA) VBA 画面上のカーソルに文字数字を入力するコードを教えて下さい 1 2022/10/30 10:31
- Excel(エクセル) エクセルシート中の全角英数字を半角に変換したい 4 2022/07/07 13:14
- Excel(エクセル) 【VBA】ファイルパスに半角スペースが入ると、VBAが動かない 5 2022/08/04 20:52
- Excel(エクセル) excelのオートシェイプを使って 1 2023/01/03 16:54
- Excel(エクセル) Excel でマクロ利用しセル内テキストを修正しております(半角カナを全角にするなど)。 ただ、セル 4 2023/06/15 21:29
- Illustrator(イラストレーター) 「頂点で線分を伸ばす」作業がうまく行かない。 1 2022/09/09 10:19
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
第一弾?第一段?
-
三相電源の各相(RST)の意味
-
野球好きですけど大谷きらいな...
-
ジーク・ジオン
-
投手失策と失策の違いを教えて...
-
野球で、打・得・安・四・点と...
-
丸1年とは?
-
平均
-
練習をしないで、レギュラーお...
-
iPhoneメモ この黄色い丸に横に...
-
メジャーリーグは平日の昼間に...
-
Life360の地図上で途中途中にあ...
-
高校野球の組合わせトーナメン...
-
ジャニーズ興味ないので気づか...
-
少年野球辞めさせたいと思う私...
-
少年野球の監督をうまくやめさ...
-
「うちの高校に来てください」...
-
【閲覧注意】団野村、義父野村...
-
ナルト シリーズの区切りを教...
-
高校部活の全国大会の費用につ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
楽天イーグルスの話
-
第一弾?第一段?
-
硬球は水に浮くか?
-
MLBはなぜダブルヘッダーを組む...
-
三相電源の各相(RST)の意味
-
ピッチャー本人がエラーした場...
-
臨時代走のスコアブック記載方法
-
丸1年とは?
-
どかんと一発やってみようよ、...
-
1点取られてもノーヒットノー...
-
投手失策と失策の違いを教えて...
-
練習をしないで、レギュラーお...
-
「ギター」って漢字(日本名)は...
-
ナルト シリーズの区切りを教...
-
女性からサッカーやってそうと...
-
ジーク・ジオン
-
マクドナルドのバイトを始めて...
-
少年野球辞めさせたいと思う私...
-
野球のピッチャーの素質の見極め方
-
野球のボールが見えない!
おすすめ情報