返回或设置光源相对于延伸图形的位置。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