コネクタ形式オブジェクト (Excel)ConnectorFormat object (Excel)

コネクタに設定されるプロパティとメソッドが含まれます。Contains properties and methods that apply to connectors.

注釈Remarks

コネクタは、結合点と呼ばれる点で 2 つの図形を接続する線です。A connector is a line that attaches two other shapes at points called connection sites. 接続された図形を再調整すると、コネクタのジオメトリは、図形の接続状態が自動的に調整されます。If you rearrange shapes that are connected, the geometry of the connector will be automatically adjusted so that the shapes remain connected.

通常では、次の図形の種類によって結合点の番号の割り付けが異なります。Connection sites are generally numbered according to the rules presented in the following table.

図形の種類Shape type 結合点番号の割り付け方法Connection site numbering scheme
オートシェイプ、ワードアート、図、OLE オブジェクトAutoShapes, WordArt, pictures, and OLE objects 結合点は、上から反時計周りに番号が付けられます。The connection sites are numbered starting at the top and proceeding counterclockwise.
フリーフォームFreeforms 結合点は頂点で頂点番号に対応して結合点に番号が付けられます。The connection sites are the vertices, and they correspond to the vertex numbers.

コネクタの形式オブジェクトを取得するのにには、 Shapeオブジェクトの**コネクタの書式** プロパティを使用します。Use the ConnectorFormat property of the Shape object to return a ConnectorFormat object. 文書内の他の図形にコネクタの端を接続するのには、 BeginConnect メソッドおよび EndConnect メソッドを使用します。Use the BeginConnect and EndConnect methods to attach the ends of the connector to other shapes in the document. コネクタによって接続されている2つの図形間の最短パスを自動的に見つけるには、 Shapeオブジェクトの**RerouteConnections** メソッドを使用します。Use the RerouteConnections method of the Shape object to automatically find the shortest path between the two shapes connected by the connector. 図形がコネクタであるかどうかを確認するのにには、 コネクタ のプロパティを使用します。Use the Connector property to see whether a shape is a connector.

注意

Shapes コレクションにコネクタを追加するときは、サイズと位置を指定しますが、コネクタの始点と終点をコレクション内の他の図形に接続すると、サイズと位置は自動的に調整されます。You assign a size and a position when you add a connector to the Shapes collection, but the size and position are automatically adjusted when you attach the beginning and end of the connector to other shapes in the collection. そのため、コネクタを他の図形に接続する場合、指定した初期のサイズと位置は無関係です。Therefore, if you intend to attach a connector to other shapes, the initial size and position that you specify are irrelevant.

同様に、コネクタを接続するとき、コネクタを接続する図形の結合点を指定しますが、コネクタを接続した後に RerouteConnections メソッドを使用すると、コネクタを接続する結合点が変更され、元の結合点の選択は無効となります。Likewise, you specify which connection sites on a shape to attach the connector to when you attach the connector, but using the RerouteConnections method after the connector is attached may change which connection sites the connector attaches to, making your original choice of connection sites irrelevant.

Example

複雑な図形での結合点の番号を調べるには、マクロ レコーダーがオンになっているときに図形を調べ、次に記録されたコードを調べるか、図形を作成し、それを選択し、次の使用例を実行します。To figure out which number corresponds to which connection site on a complex shape, you can experiment with the shape while the macro recorder is turned on and then examine the recorded code; or you can create a shape, select it, and then run the following example. このコードは、各結合点に番号を付け、それにコネクタを接続します。This code will number each connection site and attach a connector to it.

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 つの四角形を追加し、それらを曲線コネクタで接続します。The following example adds two rectangles to myDocument and connects them with a curved connector.

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

メソッドMethods

プロパティProperties

関連項目See also

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.