设置延伸经过的路径偏离延伸形状的方向。
expression.SetExtrusionDirection(PresetExtrusionDirection)
expression 必选。该表达式返回一个 ThreeDFormat 对象。
PresetExtrusionDirection 必选。MsoPresetExtrusionDirection 类型。指定延伸方向。
| MsoPresetExtrusionDirection 可以是下列 MsoPresetExtrusionDirection 类型常数之一。 |
| msoExtrusionBottom |
| msoExtrusionBottomLeft |
| msoExtrusionBottomRight |
| msoExtrusionLeft |
| msoExtrusionNone |
| msoExtrusionRight |
| msoExtrusionTop |
| msoExtrusionTopLeft |
| msoExtrusionTopRight |
| msoPresetExtrusionDirectionMixed |
该方法将 PresetExtrusionDirection 属性设为由 PresetExtrusionDirection 参数指定的方向。
本示例指定 myDocument 中第一个形状向该形状的顶部延伸，而且延伸的光线由左侧照入。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(1).ThreeD
.Visible = True
.SetExtrusionDirection msoExtrusionTop
.PresetLightingDirection = msoLightingLeft
End With