Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9609 / 76807

←次へ　｜　前へ→


	【72759】円と直線の間に矢印を…

aka - 12/9/16(日) 7:00 -


	引用なし

	パスワード

例えばですが、

　　　|
〇　 |　　
　　　|
このように左側に円を書き、右側に直線を引いて、

　　　|
〇→|　　
　　　|　　

このように円と直線の端と端の間に一本矢印を引くマクロを設定することは可能でしょうか？

また、
　 Dim TP, LF, WD
　　TP = Selection.Top + (Selection.Height / 2)
　　LF = Selection.Left
　　WD = Selection.Width
　　ActiveSheet.Shapes.AddLine(LF + 6, TP, LF + WD, TP).Select
　　Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
　　Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadTriangle

このようなマクロでセルを選択すればセルの範囲内において矢印を（このコードだと横しか引けませんが）書くことは可能ですが、上記の例にしめしたように、円と直線の端と端にぴったり矢印を書けなくて困っています。

セルの間隔をうまく合わせれば上記コードで十分なのですが、仕事内容的にそれが困難だったりします。

ご教授のほど、よろしくお願いします。

0 hits

▼

【72759】円と直線の間に矢印を… aka 12/9/16(日) 7:00

≪