Метод GraphicItems.AddCopy (Visio)

Статья
04/07/2023

Добавляет копию объекта GraphicItem в коллекцию GraphicItemsобъекта Master типа visTypeDataGraphic.

Примечание.

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

Синтаксис

выражение. AddCopy( _GraphicItem_ )

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Графический элемент	Обязательный	[IVGRAPHICITEM]	Объект GraphicItem для копирования.

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

Графический элемент

Замечания

Объект GraphicItem , который требуется добавить, уже должен существовать в коллекции GraphicItems другого объекта Master типа visTypeDataGraphic.

После использования Master.Open для открытия копии главного объекта типа visTypeDataGraphic для редактирования необходимо использовать метод Master.Close , чтобы зафиксировать все изменения, внесенные в главный объект, пока он был открыт. При закрытии копии образца графического элемента данных также повторно применяется рисунок данных ко всем фигурам, к которым она была применена ранее.

Примечание.

Дополнительные сведения о том, почему необходимо изменить копию образца, а не самого образца, см. в разделе Master.Open.

Пример

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

Макрос использует метод Masters.AddEx для добавления нового объекта Master типа visTypeDataGraphic в коллекцию Master активного документа. Затем он использует метод Master.Open для получения копии нового образца графических данных для редактирования.

Затем метод получает копию существующего графического элемента данных, который является первым элементом в коллекции GraphicItems существующего образца. Наконец, он использует метод AddCopy для добавления копии существующего графического элемента данных в коллекцию GraphicItems копии нового образца, а затем закрывает главную копию.

Макрос предполагает, что известно имя существующего графического образца данных ( "old_master_name "), который содержит один или несколько графических элементов, которые вы хотите добавить в новый эталон. Имя существующего графического образца данных можно определить, наведите указатель мыши на него в области задач Графика данных в пользовательском интерфейсе Visio.

Public Sub AddCopy_Example() 
 
    Dim vsoMaster As Visio.Master 
    Dim vsoMasterCopy As Visio.Master 
    Dim vsoMaster_Old As Visio.Master 
    Dim vsoGraphicItem As GraphicItem 
    Dim vsoGraphicItem_Old As Visio.GraphicItem 
 
    Set vsoMaster = Visio.ActiveDocument.Masters.AddEx(visTypeDataGraphic) 
    Set vsoMasterCopy = vsoMaster.Open 
    Set vsoMaster_Old = ActiveDocument.Masters("old_master_name ") 
    Set vsoGraphicItem_Old = vsoMaster_Old.GraphicItems(1) 
    Set vsoGraphicItem = vsoMasterCopy.GraphicItems.AddCopy(vsoGraphicItem_Old) 
    vsoMasterCopy.Close     
 
End Sub

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

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

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