Compartilhar via


Método GraphicItems.AddCopy (Visio)

Adiciona uma cópia de um objeto GraphicItem à 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

expression. AddCopy( _GraphicItem_ )

Expressão Uma expressão que retorna um objeto GraphicItems .

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
GraphicItem Obrigatório [IVGRAPHICITEM] O objeto GraphicItem a ser copiado.

Valor de retorno

GraphicItem

Comentários

O objeto GraphicItem que você deseja adicionar já deverá existir na coleção GraphicItems de um outro objeto Master do tipo visTypeDataGraphic.

Após usar Master.Open para abrir uma cópia de um objeto Master do tipo visTypeDataGraphic para edição, use o método Master.Close para confirmar todas as alterações feitas no mestre durante sua abertura. Fechar uma cópia de um mestre de gráfico de dados também reaplica o gráfico de dados a todas as formas às quais ele foi anteriormente aplicado.

Observação

Para obter mais informações sobre por que é necessário editar uma cópia de um mestre em vez do próprio mestre, consulte Master.Open.

Exemplo

A macro a seguir do Microsoft Visual Basic for Applications (VBA) mostra como usar o método AddCopy para adicionar uma cópia de um item de gráfico de dados existente à coleção GraphicItems de um objeto Master.

A macro usa o método Masters.AddEx para adicionar um novo objeto Master do tipo visTypeDataGraphic à coleção Masters do documento ativo. Em seguida, ele usa o método Master.Open para obter uma cópia do novo mestre gráfico de dados para editar.

Em seguida, o método obtém uma cópia de um item gráfico de dados existente que é o primeiro item na coleção GraphicItems de um mestre existente. Finalmente, ela usa o método AddCopy para adicionar a cópia do item de gráfico de dados existente à coleção GraphicItems da cópia do novo mestre e, em seguida, fecha a cópia do mestre.

A macro pressupõe que você saiba o nome do mestre gráfico de dados existente (" old_master_name ") que contém um ou mais itens gráficos que você deseja adicionar ao novo mestre. 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.

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

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.