设置延伸图形的延伸方向。
expression.SetExtrusionDirection(PresetExtrusionDirection)
expression 必需。该表达式返回“应用于”列表中的一个对象。
PresetExtrusionDirection MsoPresetExtrusionDirection 类型,必需。指定延伸方向。
MsoPresetExtrusionDirection 可为以下 MsoPresetExtrusionDirection 常量之一。 |
msoExtrusionBottom |
msoExtrusionBottomLeft |
msoExtrusionBottomRight |
msoExtrusionLeft |
msoExtrusionNone |
msoExtrusionRight |
msoExtrusionTop |
msoExtrusionTopLeft |
msoExtrusionTopRight |
msoPresetExtrusionDirectionMixed |
本方法将 PresetExtrusionDirection 属性设置为由 PresetExtrusionDirection 参数指定的方向。
本示例使 myDocument
中的第一个图形向上延伸,并使光线从左方照射。
Set myDocument = Worksheets(1)
With myDocument.Shapes(1).ThreeD
.Visible = True
.SetExtrusionDirection msoExtrusionTop
.PresetLightingDirection = msoLightingLeft
End With