返回或设置相对于延伸的光源位置。可读写。MsoPresetLightingDirection 类型。
| MsoPresetLightingDirection 可以是下列 MsoPresetLightingDirection 类型常数之一。 |
| msoLightingBottom |
| msoLightingBottomLeft |
| msoLightingBottomRight |
| msoLightingLeft |
| msoLightingNone |
| msoLightingRight |
| msoLightingTop |
| msoLightingTopLeft |
| msoLightingTopRight |
| msoPresetLightingDirectionMixed |
expression.PresetLightingDirection
expression 必选。该表达式返回“应用于”列表中的对象之一。
注意 如果延伸的表面是线框，则不能看到光源效果。
本示例制定了 myDocument 中第一个形状的延伸方向是朝向该形状的顶部，而且延伸的光线由左侧照入。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(1).ThreeD
.Visible = True
.SetExtrusionDirection msoExtrusionTop
.PresetLightingDirection = msoLightingLeft
End With