返回或设置光源相对于延伸图形的位置。MsoPresetLightingDirection 类型，可读写。
| MsoPresetLightingDirection 可为以下 MsoPresetLightingDirection 常量之一。 |
| msoLightingBottom |
| msoLightingBottomLeft |
| msoLightingBottomRight |
| msoLightingLeft |
| msoLightingNone |
| msoLightingRight |
| msoLightingTop |
| msoLightingTopLeft |
| msoLightingTopRight |
| msoPresetLightingDirectionMixed |
expression.PresetLightingDirection
expression 必需。该表达式返回“应用于”列表中的对象之一。
注意 如果延伸图形的表面是由线框构成的，就看不到所设置的光线效果。
本示例使 myDocument 中的第一个图形向上延伸，并使光线从左方照射。
Set myDocument = Worksheets(1)
With myDocument.Shapes(1).ThreeD
.Visible = True
.SetExtrusionDirection msoExtrusionTop
.PresetLightingDirection = msoLightingLeft
End With