全部显示返回或设置与延伸部分相关的光源的位置。MsoPresetLightingDirection，可读写。
| MsoPresetLightingDirection 可以是下列 MsoPresetLightingDirection 常量之一： |
| msoLightingBottom |
| msoLightingBottomLeft |
| msoLightingBottomRight |
| msoLightingLeft |
| msoLightingNone |
| msoLightingRight |
| msoLightingTop |
| msoLightingTopLeft |
| msoLightingTopRight |
| msoPresetLightingDirectionMixed |
expression.PresetLightingDirection
expression 必需。该表达式返回一个 ThreeDFormat 对象。
如果延伸部分设为透明框架效果，则所设照明效果不明显。
本示例将 myDocument 中图形 1 的延伸方向指定为图形的上方，延伸部分的照明方向设在左侧。
Set myDocument = ActiveDocument
With myDocument.Shapes(1).ThreeD
.Visible = True
.SetExtrusionDirection msoExtrusionTop
.PresetLightingDirection = msoLightingLeft
End With