Partilhar via

Método GraphicItem.Delete (Visio)

  • Artigo

Exclui um objeto GraphicItem da coleção GraphicItems de um objeto Mestre do tipo visTypeDataGraphic.

Observação

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

Sintaxe

expressão. Excluir

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

Valor de retorno

Nada

Comentários

Antes de excluir um item gráfico, você deve usar o método Master.Open para abrir para editar uma cópia do mestre gráfico de dados cuja coleção GraphicItems o item gráfico pertence. 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.