エクセルのワークシート上に2点(x1,y1)、(x2,y2)の座標があり、半径がrと決まっている場合に、(x1,y1)を始点、(x2,y2)を終点とする半径rの円弧を描きたいのですが、VBAで教えていただけますでしょうか?
例えばエクセルのワークシート上に2点(600,400)と(500,300)という座標があります。この座標は、
Dim ShapeA As Shape, ShapeB As Shape
Set ShapeA = ActiveSheet.Shapes.AddShape _
(msoShapeOval, 600, 400, 2, 2)
Set ShapeB = ActiveSheet.Shapes.AddShape _
(msoShapeOval, 500, 300, 2, 2)
というコードでワークシート上に描いています。
この2点をそれぞれ始点、終点として、半径100の円弧を描く方法を考えているのですが、
VBA初心者の為、困っています。VBAで円弧を描く方法がありましたら是非教えていただきたく
お願い致します。
よろしくお願い致します。
No.2ベストアンサー
- 回答日時:
私なりにやってみて以下報告します。
ただし、私には判らない点は残ったままですが。ーー
エクセルのオートシェイプで基本図形に円弧(Arc)があります。
Shiftキーを押しつつ書くと真円の1/4円弧がかかれるようです。
そこで右下の黄色い小○点を上に引き上げると、1/4円でなく円の一部になるようです。
マクロの記録をとると
Sub Macro1()
ActiveSheet.Shapes.AddShape(msoShapeArc, 200, 200, 300, 300).Select
Selection.ShapeRange.Adjustments.Item(2) = 54.9544
End Sub
などのようになります。
300,300はHeight、Widthの値で、1/4円の場合は半径に当たるので、半径を指定すればよいと思う(*1)。
「そこで黄色い小○点を上に引き上げる」操作が、Adjustments
にたると思います(*2)
そして左上黄色小○点を動かすと
Selection.ShapeRange.Adjustments.Item(1) = 76.017
とItem(1)になるところから、Item(1)が左上黄色小○点、Item(2)が右下黄色小○点を左右するものと思います(*3)
この数値を決めると任意の円弧をワークシート上に描けると思われます。
(ただし、下手に図形のサイズを変えると、図形がゆがんで円弧でなくなります。黄色小○点を掴んで端点を動かすことです。)
ーー
>、(x1,y1)を始点、(x2,y2)を終点とする場合どう計算するか
は勉強してみてください。
ーー
*1-*3が私には断言できるか100%は自信の無いところです。
ーー
そして同じようなことを考えた
http://park7.wakwak.com/~efc21/cgi-bin/exqaloung …
がありました。
「Adjustments.Item VBA」でWEB照会すると、予想外の結構の数の記事があるようです。調べてみてください。
ーー
微少直線で円を書くこともやってみましたが、微少直線1つ1つが独立した線(オブジェクト)で、グループ化などがややこしくて、考えるのをやめました。
参考
円弧を描く
Sub test03()
Worksheets("sheet1").DrawingObjects.Delete
r = 300
mx = 100
l = 400
my = l - Sqr(r ^ 2 - mx ^ 2)
For x = 100 To 250 Step 1
y = l - Sqr(r ^ 2 - x ^ 2)
ActiveSheet.Shapes.AddLine mx, my, x, y
mx = x
my = y
Next
End Sub
ーー
何かの参考になれば。
No.1
- 回答日時:
こんにちは。
描画オブジェクトのひとつに「曲線」がありますが、マウスでクリックした点をつないで曲線にするものです。
円弧の通過点を計算して追加していけば円弧になると思います。オブジェクトの名前やメソッドはマクロのレコーディング機能で確認できます。
では。
この回答への補足
akina_line様
早々にご教授いただきありがとうございます。参考にさせていただきます。
質問の補足なのですが、エクセルのA列にX座標、B列にY座標が
1行~n行あらかじめ入力されており、エクセル上にそれぞれのXY
座標を描画して、1行目のXY座標と次の行の
XY座標を直線コネクタで結ぶという作業をn行まで行っています。
ところがたまにC列に半径Rが入る事があり、その場合は、
2点の座標を半径Rの円弧で結ぶ必要があります。
その為、2点を1つの円弧で出来れば結びたいと考えています。
ActiveSheet.Shapes.AddShape(msoShapeArc, X1, Y1, R R).Select
Selection.ShapeRange.Adjustments.Item(1) = 開始角
Selection.ShapeRange.Adjustments.Item(2) =終了角
みたいな形で描画出来ればと思うのですが、開始角と終了角を
求めるコードが、なかなか思い浮かびません。
素人でまだまだ勉強不足な為、稚拙な質問で大変申し訳ありませんが、
何卒ご教授いただきたくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
ハマっている「お菓子」を教えて!
この世には、おいしいお菓子がありすぎて……。 次何を食べたらいいか迷っています。 みなさんが今、ハマっている「お菓子」を教えてください!
-
【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
2024年は「名探偵コナン30周年」「涼宮ハルヒ20周年」などを迎えますが、 あなたが「もうそんなに!?」と驚いた○○周年を教えてください。
-
CDの保有枚数を教えてください
ひとむかし前はCDを買ったり借りたりが主流でしたが、サブスクで簡単に音楽が聴ける今、CDを手に取ることも減ってきたかと思います。皆さんは2024年現在、何枚くらいCDをお持ちですか?
-
昨日見た夢を教えて下さい
たまにすごいドラマチックな夢見ること、ありませんか? 起きてからも妙に記憶に残っているような、そんな夢。
-
架空の映画のネタバレレビュー
映画のCMを見ていると、やたら感動している人が興奮で感想を話していますよね。 思わずストーリーが気になってしまう架空の感動レビューを教えて下さい!
-
エクセルの図形で弧を書く方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
グラフの交点の求め方(Excel)
-
3次元空間上の2つの座標から...
-
マインクラフト(pc版)で座標...
-
内積を用いた移動する線分と円...
-
四角形の当たり判定についての...
-
ダイアログ内コントロールの位...
-
複数コントロール(ラベル)を...
-
最小二乗平面
-
エクセルで回転する座標の出し方
-
弧の長さから角度を取得するには。
-
画像ファイルに座標が記録され...
-
VB.NETの原点の変更
-
シーケンサー(PLC?)で制...
-
3D→2Dの座標変換で、スクリーン...
-
Fortranで出力したファイルの内...
-
OpenGLの線の太さ
-
C言語について質問です 画像の...
-
visualbasic でform上に正三角...
-
DirectInputでの現在のマウス座...
-
visual C# ピクチャーボックス...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
グラフの交点の求め方(Excel)
-
マインクラフト(pc版)で座標...
-
3次元空間上の2つの座標から...
-
ダイアログ内コントロールの位...
-
エクセルである点からの距離で...
-
画像ファイルに座標が記録され...
-
始点、終点の二つの座標と半径...
-
直線上にある点の座標の求め方
-
エクセルで回転する座標の出し方
-
以下のプログラムは重心を求め...
-
閉図形の座標の配列が右回りか...
-
シーケンサー(PLC?)で制...
-
座標を持った平面範囲に座標を...
-
円弧の描画について
-
多角形の内部かどうか判定する方法
-
図形が重なりあっているかどうか
-
ガウシアンフィルタのCプログラム
-
ワード上Shapeの位置情報を統一...
-
ピクチャボックスの座標取得
-
交差する2線分の交点座標の求め方
おすすめ情報