ConnectorFormat オブジェクト (Excel)
コネクタに設定されるプロパティとメソッドが含まれます。
注釈
コネクタは、結合点と呼ばれる点で 2 つの図形を接続する線です。 接続された図形を再調整すると、コネクタのジオメトリは、図形の接続状態が自動的に調整されます。
通常では、次の図形の種類によって結合点の番号の割り付けが異なります。
図形の種類 | 結合点番号の割り付け方法 |
---|---|
オートシェイプ、ワードアート、図、OLE オブジェクト | 結合点は、上から反時計周りに番号が付けられます。 |
フリーフォーム | 結合点は頂点で頂点番号に対応して結合点に番号が付けられます。 |
Shape オブジェクトの ConnectorFormat プロパティを使用して、ConnectorFormat オブジェクトを取得します。 文書内の他の図形にコネクタの端を接続するのには、 BeginConnect メソッドおよび EndConnect メソッドを使用します。 Shape オブジェクトの RerouteConnections メソッドを使用して、コネクタによって接続された 2 つの図形間の最短パスを自動的に見つけます。 図形がコネクタであるかどうかを確認するのにには、 コネクタ のプロパティを使用します。
注:
Shapes コレクションにコネクタを追加するときにサイズと位置を割り当てますが、コネクタの先頭と末尾をコレクション内の他の図形にアタッチすると、サイズと位置が自動的に調整されます。 そのため、コネクタを他の図形にアタッチする場合、指定した初期サイズと位置は関係ありません。
同様に、コネクタを接続するとき、コネクタを接続する図形の結合点を指定しますが、コネクタを接続した後に RerouteConnections メソッドを使用すると、コネクタを接続する結合点が変更され、元の結合点の選択は無効となります。
例
複雑な図形での結合点の番号を調べるには、マクロ レコーダーがオンになっているときに図形を調べ、次に記録されたコードを調べるか、図形を作成し、それを選択し、次の使用例を実行します。 このコードは、各結合点に番号を付け、それにコネクタを接続します。
Set mainshape = ActiveWindow.Selection.ShapeRange(1)
With mainshape
bx = .Left + .Width + 50
by = .Top + .Height + 50
End With
With ActiveSheet
For j = 1 To mainshape.ConnectionSiteCount
With .Shapes.AddConnector(msoConnectorStraight, _
bx, by, bx + 50, by + 50)
.ConnectorFormat.EndConnect mainshape, j
.ConnectorFormat.Type = msoConnectorElbow
.Line.ForeColor.RGB = RGB(255, 0, 0)
l = .Left
t = .Top
End With
With .Shapes.AddTextbox(msoTextOrientationHorizontal, _
l, t, 36, 14)
.Fill.Visible = False
.Line.Visible = False
.TextFrame.Characters.Text = j
End With
Next j
End With
次の使用例は、myDocument に 2 つの四角形を追加し、それらを曲線コネクタで接続します。
Set myDocument = Worksheets(1)
Set s = myDocument.Shapes
Set firstRect = s.AddShape(msoShapeRectangle, 100, 50, 200, 100)
Set secondRect = s.AddShape(msoShapeRectangle, 300, 300, 200, 100)
Set c = s.AddConnector(msoConnectorCurve, 0, 0, 0, 0)
With c.ConnectorFormat
.BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1
.EndConnect ConnectedShape:=secondRect, ConnectionSite:=1
c.RerouteConnections
End With
メソッド
プロパティ
- Application
- BeginConnected
- BeginConnectedShape
- BeginConnectionSite
- Creator
- EndConnected
- EndConnectedShape
- EndConnectionSite
- Parent
- 型
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。