Table of contents
TOC
Recolher sumário
Expandir sumário

Propriedade ThreeDFormat.Depth (Editor)ThreeDFormat.Depth Property (Publisher)

office 365 dev account|Última Atualização: 22/03/2018
|
3 Colaboradores

Retorna ou define um Variant indicando a profundidade da extrusão da forma. Leitura/gravação.Returns or sets a Variant indicating the depth of the shape's extrusion. Read/write.

SintaxeSyntax

expressão. Profundidadeexpression. Depth

_expression_A variável que representa um objeto ThreeDFormat ._expression_A variable that represents a ThreeDFormat object.

Valor de retornoReturn Value

VarianteVariant

ComentáriosRemarks

Os valores numéricos são avaliados em pontos; as cadeias de caracteres podem estar em qualquer unidade a que o Microsoft Publisher ofereça suporte (por exemplo, "6,35 cm").Numeric values are evaluated in points; strings can be in any units supported by Microsoft Publisher (for example, "2.5 in").

Os valores positivos produzem uma extrusão cuja face frontal é a forma original; os valores negativos produzem uma extrusão cuja face traseira é a forma original. O intervalo válido é-600 por meio de 9600 pontos ou a distância equivalente em todas as outras unidades.Positive values produce an extrusion whose front face is the original shape; negative values produce an extrusion whose back face is the original shape. The valid range is -600 through 9600 points, or the equivalent distance in all other units.

ExemploExample

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

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 
© 2018 Microsoft