Shape.ThreeD (Word)

Retorna um objeto ThreeDFormat que contém as propriedades de formatação 3D para a forma especificada. Somente leitura.

Set myDocument = ActiveDocument 
With myDocument.Shapes(1).ThreeD 
 .Visible = True 
 .Depth = 50 
 ' RGB value for purple 
 .ExtrusionColor.RGB = RGB(255, 100, 255) 
 .SetExtrusionDirection msoExtrusionTop 
 .PresetLightingDirection = msoLightingLeft 
End With