次の方法で共有

Connect.ToCell プロパティ (Visio)

  • [アーティクル]

接続先のセルを取得します。 読み取り専用です。

構文

式。ToCell

式Connect オブジェクトを表す変数。

戻り値

Cell

注釈

接続は、接続元である図形内のセルから接続先である図形内のセルへの参照で定義されます。 ToCell プロパティは、接続先となる Cell オブジェクトを返します。

有効な接続方法、および関連する ToCell プロパティの値を次に示します。

1D 図形の開始セルまたは終了セルから...

  • 接続ポイント セル:ToCell プロパティは、Connection.X i セルを返します。

  • ガイドまたはガイド ポイントのセル: 1D 図形の開始セルまたは終了セルがガイドまたはガイド ポイントのセルに接着されると、2 つの接続が作成されます。1 つはエンドポイントの [X] セルからガイドの [角度] セル、もう 1 つはエンドポイントの [Y] セルからガイドの [角度] セルに作成されます。 両方の Connect オブジェクトの ToCell プロパティは [Angle] セルを返します。

  • 2D 図形のピン (動的接着を作成):ToCell プロパティは、PinX セルを返します。

  • [Geometry]\(ジオメトリ\) セクション内の頂点行のセル: 新しい接続ポイントが作成され、 ToCell プロパティから Connections.X i セルが返されます。

  • 1D 図形の開始セルまたは終了セル: 新しい接続ポイントが作成され、 ToCell プロパティから Connections.X i セルが返されます。

  • 2D 図形のエッジ ([配置] セクションのセル): 新しい接続ポイントが作成され、 ToCell プロパティから Connections.X i セルが返されます。

2D 図形のエッジ ([配置] セクションのセル) からガイドまたはガイド ポイントのセルへ:ToCell プロパティは、Angle セルを返します。

1D 図形の外側または内側/外側の接続ポイント セルから、ガイドまたはガイド ポイントのセルではない内側または内側/外側の接続ポイント セルへ: これらのセルが接着されると、2 つの接続が作成されます。1 つは 1D 図形の BeginX セルから Connections.X i セルに、もう 1 つは 1D 図形の EndX セルから Connections.Y i セルに作成されます。 ToCell プロパティは、最初の Connect オブジェクトの Connections.X i と、もう一方のオブジェクトの Connections.Y i を返します。

ガイドまたはガイドではない 2D 図形の外側または内側/外側の接続ポイント セルから、ガイドまたはガイド ポイントのセルではない内側または内側/外側の型の接続ポイント セル :外側の接続ポイントが方向レスの場合、 ToCell プロパティは Connections.X i セルを返します。 外側の接続ポイントに方向がある場合は、2 つの接続ポイントが作成されます。 ToCell プロパティは、両方の Connect オブジェクトの Connections.X i セルを返します。

コントロール ハンドルから接続する場合

  • 接続ポイント セル:ToCell プロパティは、Connections.Xi セルを返します。

  • ガイドまたはガイド ポイントのセル: コントロール ポイントがガイドまたはガイド ポイントのセルに接着されると、2 つの接続が作成されます。1 つはコントロール ポイントの X セルからガイドの PinX に、もう 1 つはコントロール ポイントの Y セルからガイドの PinY セルに作成されます。 最初の Connect オブジェクトの ToCell プロパティは、ガイドの [PinX] セルを返し、次の Connect オブジェクトではガイドの [PinY] セルを返します。

  • [Geometry] セクションの頂点の行の任意のセル: 新しい接続ポイントが作成され、ToCell プロパティは [Connections.Xi] セルを返します。

  • 1D 図形の開始セルまたは終了セル: 新しい接続ポイントが作成され、 ToCell プロパティから Connections.Xi セルが返されます。

  • 2D 図形のエッジ ([配置] セクションのセル): 新しい接続ポイントが作成され、 ToCell プロパティから Connections.X i セルが返されます。

例

この VBA (Microsoft Visual Basic for Applications) マクロは、Microsoft Visio 図面から接続情報を抽出する方法を示します。 この例では、接続情報はイミディエイト ウィンドウに表示されます。

この例は、接続された図形を少なくとも 2 つ含むアクティブな図面があることを前提としています。

 
Public Sub ToCell_Example() 
 
 Dim vso1DShape As Visio.Shape 
 Dim vso2DShape1 As Visio.Shape 
 Dim vso2DShape2 As Visio.Shape 
 Dim vsoCellGlueFromBegin As Visio.Cell 
 Dim vsoCellGlueFromEnd As Visio.Cell 
 Dim vsoCellGlueToObject As Visio.Cell 
 Dim vsoCellGlueToObject2 As Visio.Cell 
 
 Dim vsoShapes As Visio.Shapes 
 Dim vsoShape As Visio.Shape 
 Dim vsoConnects As Visio.Connects 
 Dim vsoConnect As Visio.Connect 
 Dim vsoConnectToCell As Visio.Cell 
 Dim intCurrentShapeID As Integer 
 Dim intCounter As Integer 
 
 'Draw a line. 
 Set vso1DShape = ActivePage.DrawLine(3, 5, 5, 3) 
 
 'Draw the lower rectangle. 
 Set vso2DShape1 = ActivePage.DrawRectangle(1, 1, 4, 2) 
 
 'Draw the upper rectangle. 
 Set vso2DShape2 = ActivePage.DrawRectangle(5, 5, 8, 6) 
 
 'Get the Cell objects needed to make the connections. 
 Set vsoCellGlueFromBegin = vso1DShape.Cells("BeginX") 
 Set vsoCellGlueFromEnd = vso1DShape.Cells("EndX") 
 Set vsoCellGlueToObject = vso2DShape1.Cells("Geometry1.X3") 
 Set vsoCellGlueToObject2 = vso2DShape2.Cells("Geometry1.X1") 
 
 'Use the GlueTo method to glue the begin point of the 1D shape 
 'to the top right vertex (Geometry1.X3) of the lower 2D shape. 
 vsoCellGlueFromBegin.GlueTo vsoCellGlueToObject 
 
 'Use the GlueTo method to glue the endpoint of the 1D shape 
 'to the bottom left vertex (Geometry1.X1) of the upper 2D shape. 
 vsoCellGlueFromEnd.GlueTo vsoCellGlueToObject2 
 
 Set vsoShapes = ActivePage.Shapes 
 
 'For each shape on the page, get its connections. 
 For intCurrentShapeID = 1 To vsoShapes.Count 
 
 Set vsoShape = vsoShapes(intCurrentShapeID) 
 Set vsoConnects = vsoShape.Connects 
 
 'For each connection, get the cell it connects to. 
 For intCounter = 1 To vsoConnects.Count 
 
 Set vsoConnect = vsoConnects(intCounter) 
 Set vsoConnectToCell = vsoConnect.ToCell 
 
 'Print connect information in the Immediate window. 
 Debug.Print " To "; vsoConnectToCell.Name 
 
 Next intCounter 
 
 Next intCurrentShapeID 
 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。