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で質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
第一弾?第一段?
-
メジャーリーガーや日本に来た...
-
投げるボールが音がするには?
-
臨時代走のスコアブック記載方法
-
ナルト シリーズの区切りを教...
-
ジーク・ジオン
-
野球の東京六大学リーグから、...
-
「うちの高校に来てください」...
-
鏡では丸顔なのに、カメラでは...
-
三相電源の各相(RST)の意味
-
守備体形?守備体系?守備隊形?
-
女性からサッカーやってそうと...
-
丸1年とは?
-
少年野球辞めさせたいと思う私...
-
野球のルールで右安などの漢字...
-
マクドナルドのバイトを始めて...
-
【閲覧注意】団野村、義父野村...
-
四字熟語
-
野球のスコアブックってどこに...
-
日本人野球選手が米メジャーに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
第一弾?第一段?
-
三相電源の各相(RST)の意味
-
臨時代走のスコアブック記載方法
-
「うちの高校に来てください」...
-
丸1年とは?
-
女性からサッカーやってそうと...
-
メジャーリーガーや日本に来た...
-
マクドナルドのバイトを始めて...
-
ナルト シリーズの区切りを教...
-
野球で、打・得・安・四・点と...
-
ジーク・ジオン
-
練習をしないで、レギュラーお...
-
右投手は何て言うんですか?
-
野球のルールで右安などの漢字...
-
オリックス岡田監督と浜中選手
-
少年野球辞めさせたいと思う私...
-
レベルE 誰が超能力者?
-
守備体形?守備体系?守備隊形?
-
鏡では丸顔なのに、カメラでは...
-
【閲覧注意】団野村、義父野村...
おすすめ情報