ConnectionSiteCount プロパティ (Excel)Shape.ConnectionSiteCount property (Excel)

指定した図形の結合点の数を取得します。Returns the number of connection sites on the specified shape. 取得のみ可能な Long 値です。Read-only Long.

構文Syntax

Connectionsitecountexpression.ConnectionSiteCount

Shape オブジェクトを返す式を指定します。expression An expression that returns a Shape object.

Example

次の使用例は、myDocument に 2 つの四角形を追加し、その 2 つを 2 本のコネクタで結合します。This example adds two rectangles to myDocument and joins them with two connectors. 両方のコネクタの始点を最初の四角形の結合点 1 に接続し、終点を 2 番目の四角形の最初と最後の結合点にそれぞれ接続します。The beginnings of both connectors attach to connection site one on the first rectangle; the ends of the connectors attach to the first and last connection sites of the second rectangle.

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) 
lastsite = secondRect.ConnectionSiteCount 
With s.AddConnector(msoConnectorCurve, _ 
 0, 0, 100, 100).ConnectorFormat 
 .BeginConnect ConnectedShape:=firstRect, _ 
 ConnectionSite:=1 
 .EndConnect ConnectedShape:=secondRect, _ 
 ConnectionSite:=1 
End With 
With s.AddConnector(msoConnectorCurve, _ 
 0, 0, 100, 100).ConnectorFormat 
 .BeginConnect ConnectedShape:=firstRect, _ 
 ConnectionSite:=1 
 .EndConnect ConnectedShape:=secondRect, _ 
 ConnectionSite:=lastsite 
End With

サポートとフィードバック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.