Método Layers.Add (Visio)
Adiciona um novo objeto Layer a uma coleção Layers.
expressão. Adicionar (LayerName)
Expressão Uma variável que representa um objeto Layers .
Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
---|---|---|---|
LayerName | Obrigatório | String | O nome da nova camada. |
Camada
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
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.