设置延伸图形的延伸方向。
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