Sub Macro1() For i = 2 To 5 ActiveSheet.Shapes.AddConnector(msoConnectorStraight, i * 50 - 30, 100, i * 50 - 30 + Cells(2, i) * 10, 100 - Cells(1, i) * 10).Select Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle Next End Sub
矢印の開始位置とかセルの間隔とかは適当
VBAでステップイン?実行させると、表示されました。ありがとうございます。もう少しいじってみたいと思います。矢印の開始位置や間隔を揃えたいところ…努力します。少なくとも200ptは送信させていただきます!
大変すみません。「はてなポイントの送信は、2018年11月28日をもって、提供を終了しました。詳しくは、こちらの告知をご覧下さい。」とのこと。知りませんでした。お送りしたいのですが… 他の方法を調べます!