Метод Page.DropLinked (Visio)

Статья
04/07/2023

Возвращает новую фигуру на странице документа, связанной с данными в наборе записей данных.

Примечание.

Этот объект или элемент Visio доступен только лицензированным пользователям Visio профессиональный 2013.

Синтаксис

выражение. DropLinked( _ObjectToDrop_ , _x_ , _y_ , _DataRecordsetID_ , _DataRowID_ , _ApplyDataGraphicAfterLink_ )

Выражение Выражение, возвращающее объект Page .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
ObjectToDrop	Обязательный	[НЕИЗВЕСТНО]	Отбрасываемый объект. Хотя обычно это объект Visio, например Master, Shape или Selection ; Это может быть любой объект OLE, предоставляющий интерфейс IDataObject .
x	Обязательный	Double	Координата X, в которой размещается центр ширины фигуры или PinX.
y	Обязательный	Double	Координата Y, в которой размещается центр высоты фигуры или PinY.
DataRecordsetID	Обязательный	Long	Идентификатор набора записей данных, который содержит данные для связывания.
DataRowID	Обязательный	Long	Идентификатор строки данных, содержащей данные для связывания.
ApplyDataGraphicAfterLink	Обязательный	Boolean	Следует ли применять текущий рисунок данных к связанной фигуре. По умолчанию рисунки, связанные с данными, не применяются. Дополнительные сведения см. в разделе Примечания.

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

Shape

Примечания

Если вы хотите создать фигуры, уже связанные с данными на странице документа, которая не содержит фигур или содержит фигуры, отличные от тех, которые вы хотите связать, можно использовать методы Page.DropLinked и Page.DropManyLinkedU для создания одной или нескольких дополнительных фигур, уже связанных с данными. Эти методы напоминают существующие методы Page.Drop и Page.DropManyU тем, что создают дополнительные фигуры в указанном расположении на странице; кроме того, они создают связи между новыми фигурами и указанными строками данных в указанном наборе записей данных.

Если объект, который передается для параметра ObjectToDrop, является фигурой, центр поля ширины и высоты фигуры размещается по указанным координатам, а объект Shape , представляющий созданную фигуру, возвращается.

Если ObjectToDrop является главным, закрепление главного элемента размещается по указанным координатам. Булавка мастера часто, но не обязательно, находится в центре вращения.

Если вы передаете значение True для необязательного параметра ApplyDataGraphicsAfterLink, Visio применяет рисунок данных, недавно примененный к любой другой фигуре в текущем документе.

Пример

В следующем макросе Microsoft Visual Basic для приложений (VBA) показано, как с помощью метода DropLinked создать фигуру на активной странице рисования, центрированную по координатам страницы (2, 2) и связанную со строкой данных в наборе записей данных, недавно добавленном в активный документ.

Фигура, передаваемая методу DropLinked, представляет собой простой прямоугольник из набора основных фигур (единиц США). Перед выполнением этого макроса используйте метод DataRecordsets.Add или другое средство, чтобы добавить по крайней мере один набор записей данных в коллекцию DataRecordsets и убедитесь, что набор элементов Basic Shapes (единиц США) открыт в окне документа Visio. В этом примере идентификатор строки данных устанавливается равным 1; перед выполнением кода убедитесь, что строка с этим идентификатором существует, или измените значение идентификатора в коде.

Public Sub DropLinked_Example() 
 
    Dim vsoShape As Visio.Shape 
    Dim vsoMaster As Visio.Master 
    Dim dblX As Double 
    Dim dblY As Double  
    Dim lngDataRowID As Long 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim intRecordsetCount As Integer 
 
    intRecordsetCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intRecordsetCount) 
     
    Set vsoMaster = Visio.Documents("Basic_U.VSS").Masters("Rectangle") 
    dblX = 2 
    dblY = 2 
    lngDataRowID = 1 
 
    Set vsoShape = ActivePage.DropLinked(vsoMaster, dblX, dblY, vsoDataRecordset.ID, lngDataRowID, True) 
 
End Sub

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

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

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