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.