Метод GraphicItem.Delete (Visio)

Статья
04/07/2023

Удаляет объект GraphicItem из коллекции GraphicItems объекта Master типа visTypeDataGraphic.

Примечание.

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

Синтаксис

expression. Удалить

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

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

Отсутствует

Примечания

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

Пример

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

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

Public Sub Delete_Example() 
 
    Dim vsoMaster As Visio.Master 
    Dim vsoMasterCopy As Visio.Master 
    Dim intGraphicItemCount As Integer 
 
    Set vsoMaster = ActiveDocument.Masters("Data Graphic") 
    Set vsoMasterCopy = vsoMaster.Open 
     
    intGraphicItemCount = vsoMasterCopy.GraphicItems.Count 
     
    Debug.Print "Before delete", intGraphicItemCount 
    vsoMasterCopy.GraphicItems(intGraphicItemCount).Delete 
    Debug.Print "After delete", vsoMasterCopy.GraphicItems.Count 
    vsoMasterCopy.Close 
    Debug.Print "After close", vsoMaster.GraphicItems.Count 
     
End Sub

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

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

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