ShapesコレクションのAddConnectorメソッド

Shapes.AddConnector

（Type, BeginX, BeginY, EndX, EndY）

マクロで図形描画機能を使ってシート上に線を引くには、ShapesコレクションのAddConnectorメソッドを実行します。

AddConnectorメソッドでは、線の種類（Type）を定数で指定し、直線の始点（BeginX、BeginY）と終点（EndX、EndY）の位置を引数に指定します。線の種類は表の定数で指定します。始点と終点は、シートの左、上からの距離を数値（ポイント）で指定します。この値はRangeオブジェクトのLeft、Topプロパティと共通です。

 

表●線の種類を表す定数

カギ線	msoConnectorElbow
右矢印	msoConnectorStraight
曲線	msoConnectorCurve

 

---

B2セルの左上隅からE4セルの左上隅にかけて直線を引く

Sub Sample()

ActiveSheet.Shapes.AddConnector _

Type:=msoConnectorStraight, _

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

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

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

EndY:=Range(“E4”).Top

End Sub

 

実行例

 

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