PowerPoint VBA教程:SetExtrusionDirection方法

设置延伸经过的路径偏离延伸形状的方向。

expression.SetExtrusionDirection(PresetExtrusionDirection)

expression  必选。该表达式返回一个 ThreeDFormat对象。

PresetExtrusionDirection  必选。MsoPresetExtrusionDirection 类型。指定延伸方向。

MsoPresetExtrusionDirection 可以是下列 MsoPresetExtrusionDirection 类型常数之一。
msoExtrusionBottom
msoExtrusionBottomLeft
msoExtrusionBottomRight
msoExtrusionLeft
msoExtrusionNone
msoExtrusionRight
msoExtrusionTop
msoExtrusionTopLeft
msoExtrusionTopRight
msoPresetExtrusionDirectionMixed

说明

该方法将PresetExtrusionDirection属性设为由 PresetExtrusionDirection参数指定的方向。

VBA示例

本示例指定myDocument 中第一个形状向该形状的顶部延伸,而且延伸的光线由左侧照入。


Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(1).ThreeD
    .Visible = True
    .SetExtrusionDirection msoExtrusionTop
    .PresetLightingDirection = msoLightingLeft
End With

上页:PowerPoint VBA教程:SetEditingType方法 下页:PowerPoint VBA教程:SetPasswordEncryptionOptions方法

PowerPoint VBA教程:SetExtrusionDirection方法

PowerPoint VBA教程:SetPasswordEncryptionOptions方法 PowerPoint VBA教程:SetPosition方法
PowerPoint VBA教程:SetSegmentType方法 PowerPoint VBA教程:SetShapesDefaultProperties方法
PowerPoint VBA教程:SetThreeDFormat方法 PowerPoint VBA教程:SmallScroll方法
PowerPoint VBA教程:Solid方法 PowerPoint VBA教程:Split方法
PowerPoint VBA教程:SwapNode方法 PowerPoint VBA教程:ToggleVerticalText方法
PowerPoint VBA教程:TransferChildren方法 PowerPoint VBA教程:TrimText方法
PowerPoint VBA教程:TwoColorGradient方法 PowerPoint VBA教程:Ungroup方法
PowerPoint VBA教程:Unselect方法 PowerPoint VBA教程:Update方法
PowerPoint VBA教程:UpdateLinks方法 PowerPoint VBA教程:UseDefaultFolderSuffix方法
PowerPoint VBA教程:UserPicture方法 PowerPoint VBA教程:UserTextured方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号