Excel VBA質問箱 IV

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

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


9534 / 76732 ←次へ | 前へ→

【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

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

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


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

【72759】円と直線の間に矢印を… aka 12/9/16(日) 7:00 質問
【72760】Re:円と直線の間に矢印を… UO3 12/9/16(日) 8:05 発言
【72761】Re:円と直線の間に矢印を… とおりすがり 12/9/16(日) 8:46 発言
【72762】Re:円と直線の間に矢印を… aka 12/9/16(日) 16:15 お礼

9534 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free