本示例设置应用于 myDocument 上图形 1 的 3-D 效果的深度、延伸方向和照明方向。

Set myDocument = ActiveDocument
With myDocument.Shapes(1).ThreeD
    .Visible = True
    .Depth = 50
    .SetExtrusionDirection ksoExtrusionTop
    .PresetLightingDirection = ksoLightingLeft
End With