Propriedade ThreeDFormat. Depth (Word)ThreeDFormat.Depth property (Word)

Retorna ou define a profundidade da extrusão da forma.Returns or sets the depth of the shape's extrusion. Leitura/gravação única.Read/write Single.

SintaxeSyntax

expressão. Profundidadeexpression.Depth

expressão Uma variável que representa um objeto 'ThreeDFormat'.expression A variable that represents a 'ThreeDFormat' object.

ComentáriosRemarks

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).The Depth property can be a value from - 600 through 9600 (positive values produce an extrusion whose front face is the original shape; negative values produce an extrusion whose back face is the original shape).

ExemploExample

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.This example adds an oval to the active document and then specifies that the oval be extruded to a depth of 50 points and that the extrusion be purple.

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émSee also

Objeto ThreeDFormatThreeDFormat Object

Suporte e comentáriosSupport and feedback

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação?Have questions or feedback about Office VBA or this documentation? 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.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.