返回或设置与延伸部分相关的光源的位置。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