PowerPoint VBA教程:SetThreeDFormat方法

返回预设的延伸格式。每个预设的延伸格式包含一组各种延伸属性的预设值。

expression.SetThreeDFormat(PresetThreeDFormat)

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

PresetThreeDFormat  必选。MsoPresetThreeDFormat 类型。指定预设的延伸格式,该格式对应于单击“绘图”工具栏上的“3-D”按钮时显示的选项(从左向右、从上到下编号)之一。

MsoPresetThreeDFormat 可以是下列 MsoPresetThreeDFormat 类型常数之一。
msoPresetThreeDFormatMixed 指定此常数将导致出错。
msoThreeD1
msoThreeD2
msoThreeD3
msoThreeD4
msoThreeD5
msoThreeD6
msoThreeD7
msoThreeD8
msoThreeD9
msoThreeD10
msoThreeD11
msoThreeD12
msoThreeD13
msoThreeD14
msoThreeD15
msoThreeD16
msoThreeD17
msoThreeD18
msoThreeD19
msoThreeD20

说明

该方法将PresetThreeDFormat属性设为由 PresetThreeDFormat参数指定的格式。

VBA示例

本示例向myDocument 中添加椭圆并将其延伸格式设置为 3D 样式 12。


Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes _
        .AddShape(msoShapeOval, 30, 30, 50, 25).ThreeD
    .Visible = True
    .SetThreeDFormat msoThreeD12
End With

上页:PowerPoint VBA教程:SetShapesDefaultProperties方法 下页:PowerPoint VBA教程:SmallScroll方法

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方法 PowerPoint VBA教程:Value方法
PowerPoint VBA教程:WebPagePreview方法 PowerPoint VBA教程:Words方法
PowerPoint VBA教程:ZOrder方法 PowerPoint VBA教程:ActionSetting对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号