|
例えばですが、
|
〇 |
|
このように左側に円を書き、右側に直線を引いて、
|
〇→|
|
このように円と直線の端と端の間に一本矢印を引くマクロを設定することは可能でしょうか?
また、
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
このようなマクロでセルを選択すればセルの範囲内において矢印を(このコードだと横しか引けませんが)書くことは可能ですが、上記の例にしめしたように、円と直線の端と端にぴったり矢印を書けなくて困っています。
セルの間隔をうまく合わせれば上記コードで十分なのですが、仕事内容的にそれが困難だったりします。
ご教授のほど、よろしくお願いします。
|
|