セルの値を参照した矢印の自動入力方法

質問

エクセル2000とXPを使用しております。

セルAにX方向の長さ
セルBにY方向の長さ

これらを入力し、グラフ又はオートシェイプ等でセルABの値を反映させた矢印をシート上に引きたいのですが
具体的な方法が思いつかず頭を抱えております。

表現が上手くできないのですが、エクセル上にてベクトル図のようなものを再現したいと考えています。
どなたか詳しい方がいらっしゃいましたら、ご回答宜しくお願い致します。

回答No.1

noname#123709 · ベストアンサー

こういうことでしょうか？
Sub test()
'Ｘ方向
ActiveSheet.Shapes.AddLine(100, Range("B2").Value + 100, Range("B1").Value + 100, Range("B2").Value + 100).Select
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium
Selection.ShapeRange.Flip msoFlipVertical

'Ｙ方向
ActiveSheet.Shapes.AddLine(100, 100, 100, Range("B2").Value + 100).Select
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium
Selection.ShapeRange.Flip msoFlipVertical

'ベクトル
ActiveSheet.Shapes.AddLine(100, 100, Range("B1").Value + 100, Range("B2").Value + 100).Select
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium
Selection.ShapeRange.Flip msoFlipVertical
End Sub

お礼

素早いご回答ありがとうございます。
なんとか矢印を描くことができました

シート上の座標を調べ、図面を作ってみます