ShapesコレクションのAddConnectorメソッド、EndArrowheadStyleプロパティ

オブジェクト.EndArrowheadStyle

シート上に矢印を引くには、まずShapesコレクションのAddConnectorメソッドで線を引いた上で、その線に対してEndArrowheadStyleプロパティなどで矢の種類を指定します。

矢の種類を表す定数は表の通りです。

 

表●矢の種類を表す定数

矢印なし	msoArrowheadNone
丸	msoArrowheadOval
ひし形	msoArrowheadDiamond
開いた矢印	msoArrowheadOpen
塗りつぶした矢印	msoArrowheadStealth

 

---

サンプル●B2セルの左上隅からE4セルの左上隅へと矢印を引く

Sub Sample()

With ActiveSheet.Shapes.AddConnector( _

Type:=msoConnectorStraight, _

BeginX:=Range(“B2”).Left, _

BeginY:=Range(“B2”).Top, _

EndX:=Range(“E4”).Left, _

EndY:=Range(“E4”).Top)

.Line.EndArrowheadStyle = msoArrowheadStealth

End With

End Sub

 

実行例

IT開発関連書とビジネス書が豊富な翔泳社の通販『SEshop』
dポイントがどんどんたまる【d払いポイントGETモール】
業界最安値宣言！高性能・低価格のパソコン通販は【UsedFun】
リラクゼーションをお得に体験!ご予約はEPARKで!
【じゃらん】国内25,000軒の宿をネットで予約OK！2％ポイント還元！
【早い者勝ち！】.com／.net／.jp　ドメイン取るならお名前.com