Shape.ThreeD (Word)

Gibt ein ThreeDFormat -Objekt zurück, das 3D-Formatierungseigenschaften für die angegebene Form enthält.

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