Propiedad ThreeDFormat.Depth (Publisher)

Devuelve o establece un valor Variant que indica la profundidad de extrusión de la forma. Lectura y escritura.

Sintaxis

expresión. Profundidad

Expresión Variable que representa un objeto ThreeDFormat .

Valor devuelto

Variant

Comentarios

Los valores numéricos se evalúan en puntos; Las cadenas pueden estar en cualquier unidad admitida por Microsoft Publisher (por ejemplo, "2,5 in").

Los valores positivos provocan una extrusión cuya cara anterior es la forma original; los valores negativos provocan una extrusión cuya cara posterior es la forma original. El intervalo válido es de - 600 a 9.600 puntos, o la distancia equivalente en el resto de las unidades.

Ejemplo:

En este ejemplo se agrega un óvalo a la publicación activa y, a continuación, se especifica que la extrusión del óvalo tenga una profundidad de 50 puntos y el color púrpura.

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 

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.