Свойство Connect.ToCell (Visio)

Возвращает ячейку, с которой установлено соединение. Только для чтения.

Синтаксис

expression. ToCell

Выражение Переменная, представляющая объект Connect .

Возвращаемое значение

Cell

Замечания

Соединение определяется ссылкой в ячейке в форме, из которой происходит соединение с ячейкой в форме, с которой установлено соединение. Свойство ToCell возвращает объект Cell , с которым установлено соединение.

Ниже приведен список возможных подключений и связанных с ними значений свойств ToCell .

От начальной или конечной ячейки 1D-фигуры до...

  • Ячейка точки подключения: Свойство ToCell возвращает ячейку Connection.X i .

  • Ячейка направляющей или направляющей точки: Когда начальная или конечная ячейка 1D-фигуры приклеивается к ячейке направляющей или направляющей точки, создаются два соединения: одно из ячейки X конечной точки к ячейке Angle направляющей, а другое из ячейки Y конечной точки к ячейке Angle направляющей. Свойство ToCell обоих объектов Connect возвращает ячейку Angle.

  • Контакт двухd-фигуры (создает динамический клей): Свойство ToCell возвращает ячейку PinX.

  • Любая ячейка строки вершины в разделе Geometry: Создается новая точка подключения, а свойство ToCell возвращает ячейку Connections.X i .

  • Начальная или конечная ячейка 1D-фигуры: Создается новая точка подключения, а свойство ToCell возвращает ячейку Connections.X i .

  • Ребро (ячейка в разделе Выравнивание) двухмерной фигуры: Создается новая точка подключения, а свойство ToCell возвращает ячейку Connections.X i .

От края (ячейки в разделе Выравнивание) двухмерной фигуры до ячейки направляющей или направляющей точки: Свойство ToCell возвращает ячейку Angle.

Из ячейки точки соединения наружу, вовнутую или внешнюю точку соединения 1D-фигуры в ячейку внутренней или внешней точки соединения, которая не является ячейкой направляющей или направляющей точки: При склеии этих ячеек создаются два соединения: одно из ячейки BeginX 1D-фигуры с ячейкой Connections.X i , а другое из ячейки EndX 1D-фигуры к ячейке Connections.Y i . Свойство ToCell возвращает Connections.X i для первого объекта Connect и Connections.Y i для другого.

Из ячейки точки соединения наружу, вовнутрь или внешней точки соединения двухмерной фигуры, которая не является направляющей или направляющей точкой, до ячейки точки соединения типа вовнутрь, вовнутрь или внешней точки, которая не является ячейкой направляющей или направляющей точки: Если точка подключения наружу не направлена, свойство ToCell возвращает ячейку Connections.X i . Если наружная точка подключения имеет направление, создаются две точки подключения. Свойство ToCell возвращает ячейку Connections.X i для обоих объектов Connect .

От дескриптора элемента управления до...

  • Ячейка точки подключения: Свойство ToCell возвращает ячейку Connections.Xi.

  • Ячейка направляющей или направляющей точки: Когда контрольная точка приклеивается к ячейке направляющей или направляющей точки, создаются два соединения: одно из ячейки X контрольной точки к pinX направляющей, а другое из ячейки Y контрольной точки к ячейке PinY направляющей. Свойство ToCell первого объекта Connect возвращает ячейку PinX направляющей, а для второго объекта Connect — ячейку PinY направляющей.

  • Любая ячейка строки вершины в разделе Geometry: Создается новая точка подключения, а свойство ToCell возвращает ячейку Connections.Xi.

  • Начальная или конечная ячейка 1D-фигуры: Создается новая точка подключения, а свойство ToCell возвращает ячейку Connections.Xi.

  • Ребро (ячейка в разделе Выравнивание) двухмерной фигуры: Создается новая точка подключения, а свойство ToCell возвращает ячейку Connections.X i .

Пример

Этот макрос Microsoft Visual Basic для приложений (VBA) показывает, как извлечь сведения о подключении из документа Microsoft Visio. В примере отображаются сведения о подключении в окне Интерпретация.

В этом примере предполагается, что существует активный документ, содержащий по крайней мере две соединенные фигуры.

 
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 и обратная связь.

  • Last updated on