Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Retorna ou define a profundidade da extrusão da forma. Leitura/gravação único.
Sintaxe
expressão. Profundidade
expressão Uma variável que representa um objeto "ThreeDFormat".
Comentários
A propriedade Depth pode ser um valor de - 600 a 9600 (valores positivos produzem uma extrusão cuja face frontal é a forma original; valores negativos produzem uma extrusão cuja face traseira é a forma original).
Exemplo
Este exemplo adiciona uma elipse ao documento ativo e, em seguida, especifica que a elipse sofra extrusão a uma profundidade de 50 pontos e que a extrusão seja roxa.
Dim docActive As Document
Dim shapeNew As Shape
Set docActive = ActiveDocument
Set shapeNew = docActive.Shapes.AddShape(msoShapeOval, _
90, 90, 90, 40)
With shapeNew.ThreeD
.Visible = True
.Depth = 50
' RGB value for purple
.ExtrusionColor.RGB = RGB(255, 100, 255)
End With
Confira também
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.