Propriedade ThreeDFormat.Depth (Publisher)
Retorna ou define um Variant indicando a profundidade da extrusão da forma. Leitura/gravação.
Sintaxe
expressão. Profundidade
Expressão Uma variável que representa um objeto ThreeDFormat .
Valor de retorno
Variant
Comentários
Os valores numéricos são avaliados em pontos; cadeias de caracteres podem estar em todas as unidades com suporte do Microsoft Publisher (por exemplo, "2.5 in").
Os valores positivos produzem uma extrusão cuja face frontal é a forma original; valores negativos produzem uma extrusão cuja face traseira é a forma original. O intervalo válido é de -600 a 9600 pontos ou a distância equivalente em todas as outras unidades.
Exemplo
Este exemplo adiciona uma elipse à publicação ativa e, em seguida, especifica que a elipse sofra extrusão a uma profundidade de 50 pontos e que a extrusão seja roxa.
Dim shpNew As Shape
Set shpNew = ActiveDocument.Pages(1).Shapes _
.AddShape(Type:=msoShapeOval, _
Left:=90, Top:=90, Width:=90, Height:=40)
With shpNew.ThreeD
.Visible = True
.Depth = 50
.ExtrusionColor.RGB = RGB(255, 100, 255)
End With
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.