Метод Cell.GlueToPos (Visio)

Статья
04/07/2023

Приклеивает одну фигуру к другой из ячейки первой фигуры к позиции x, y во второй фигуре.

Синтаксис

expression. GlueToPos (SheetObject, xPercent, yPercent)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
SheetObject	Обязательный	[IVSHAPE]	Выражение, возвращающее объект Shape , к которому необходимо приклеить.
xPercent	Обязательный	Double	Координата X положения, к который нужно приклеить.
yPercent	Обязательный	Double	Координата Y положения, к который нужно приклеить.

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

Отсутствует

Примечания

Метод GlueToPos создает новую точку подключения в расположении, определенном xPercent и yPercent, которые представляют десятичные доли ширины и высоты указанной фигуры соответственно, а не координат. Например, следующая команда создает точку соединения в центре SheetObject и приклеивает часть фигуры, которую представляет cellObject , к этой точке:

cellObject. GlueToPosSheetObject, 0.5, 0.5

При приклеивание ячейки X строки раздела Controls или ячейки BeginX или EndX автоматически склеивает ячейку Y строки раздела Controls или ячейку BeginY или EndY соответственно. (Верно и обратное.)

Пример

В следующем примере показано, как использовать метод GlueToPos для склеивания фигур.

 
Public Sub GlueToPos_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 
 
 '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") 
 
 'Use the GlueToPos method to glue the begin point of the 1D shape 
 'to the top center of the lower 2D shape. 
 vsoCellGlueFromBegin.GlueToPos vso2DShape1, 0.5, 1 
 
 'Use the GlueToPos method to glue the endpoint of the 1D shape 
 'to the bottom center of the upper 2D shape. 
 vsoCellGlueFromEnd.GlueToPos vso2DShape2, 0.5, 0 
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через