Propriedade Shape.Layer (Visio)
Retorna a camada à qual uma forma foi atribuída. Somente leitura.
Sintaxe
expression. Layer (Índice)
Expressão Uma variável que representa um objeto Shape .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Índice | Obrigatório | Integer | O número ordinal da camada que deverá ser obtida. |
Valor de retorno
Camada
Comentários
Se uma forma tiver sido atribuída a três camadas, os índices válidos que podem ser passados para a sua propriedade Layer são 1 a 3.
Para obter o número de camadas às quais uma forma foi atribuída, use a propriedade LayerCount.
Exemplo
Esta macro do VBA (Microsoft Visual Basic for Applications) mostra como usar a propriedade Layer para obter uma referência a uma camada específica. Adicionalmente, ela usa a propriedade LayerCount para determinar o número de camadas às quais uma forma foi atribuída e a propriedade Name para obter o nome da camada atual.
Public Sub Layer_Example()
Dim vsoPage As Visio.Page
Dim vsoShape As Visio.Shape
Dim vsoLayers As Visio.Layers
Dim vsoLayer As Visio.Layer
If ActiveDocument Is Nothing Then
Documents.Add ("")
End If
Set vsoPage = ActivePage
If vsoPage Is Nothing Then
Set vsoPage = ActiveDocument.Pages(1)
End If
'Draw a rectangle.
Set vsoShape = vsoPage.DrawRectangle(1, 5, 5, 1)
'Get the Layers collection.
Set vsoLayers = vsoPage.Layers
'Create a layer named ExampleLayer1 and add the shape to it.
Set vsoLayer = vsoLayers.Add("ExampleLayer1")
vsoLayer.Add vsoShape, 1
'Create a layer named ExampleLayer2 and add the shape to it.
Set vsoLayer = vsoLayers.Add("ExampleLayer2")
vsoLayer.Add vsoShape, 1
'Verify that the shape has been assigned to 2 layers.
Debug.Print "The rectangle is assigned to " & vsoShape.LayerCount & " layers."
'Get a reference to the first layer.
Set vsoLayer = vsoShape.Layer(1)
'Verify by using the Name property.
Debug.Print "Current vsoLayer name is """ & vsoLayer.Name & "."""
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.