Compartilhar via


Método Layers.Add (Visio)

Adiciona um novo objeto Layer a uma coleção Layers.

Sintaxe

expressão. Adicionar (LayerName)

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

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
LayerName Obrigatório String O nome da nova camada.

Valor de retorno

Camada

Exemplo

A macro a seguir mostra como adicionar um objeto Layer à coleção Layers.

Public Sub AddLayer_Example() 
 
 Dim vsoDocument As Visio.Document 
 Dim vsoPages As Visio.Pages 
 Dim vsoPage As Visio.Page 
 Dim vsoLayers As Visio.Layers 
 Dim vsoLayer As Visio.Layer 
 
 'Add a document based on the Basic Diagram template. 
 Set vsoDocument = Documents.Add("Basic Diagram.vst") 
 
 'Get the Pages collection and add a page to the collection. 
 Set vsoPages = vsoDocument.Pages 
 Set vsoPage = vsoPages.Add 
 
 'Get the Layers collection and add a layer named "MyLayer" 
 'to the collection. 
 Set vsoLayers = vsoPage.Layers 
 Set vsoLayer = vsoLayers.Add("MyLayer") 
 
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.