GraphicItem.Delete method (Visio) (Método GraphicItem.Delete [Visio])

Elimina um objeto GraphicItem da coleção GraphicItems de um objeto Master do tipo visTypeDataGraphic.

Observação

This Visio object or member is available only to licensed users of Visio Professional 2013.

Sintaxe

expressão. Eliminar

expressão Uma variável que representa um objeto GraphicItem .

Valor de retorno

Nada

Comentários

Antes de poder eliminar um item gráfico, tem de utilizar o método Master.Open para abrir para editar uma cópia do gráfico de dados master a cuja coleção GraphicItems pertence ao item gráfico. Depois de excluir o item gráfico e fazer quaisquer outras edições desejadas, use o método Master.Close para confirmar as alterações.

Exemplo

A macro a seguir do Microsoft Visual Basic for Applications (VBA) mostra como usar o método Delete para excluir um item gráfico existente da coleção GraphicItems de um objeto Master. Ela exclui o item gráfico adicionado mais recentemente à coleção e imprime a contagem de itens gráficos na coleção da cópia mestre, tanto antes quanto após a exclusão, na janela Immediate. Depois de fechar a cópia mestre, também imprime a contagem de itens gráficos na coleção do próprio mestre, para mostrar que as ações efetuadas na cópia foram confirmadas no mestre.

A macro supõe que haja um mestre de gráfico de dados existente no projeto, cuja coleção GraphicItems tenha pelo menos um membro. Para determinar o nome de um mestre de gráfico de dados existente, mova o mouse sobre o mestre no painel de tarefas Gráficos de Dados na interface do usuário do Visio. O mestre neste exemplo é denominado, "Gráfico de Dados".

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.