SetThreeDFormat 方法

       

设置预置的延伸格式。每个预置的延伸格式包含延伸图形的各种属性的预置值。

expression.SetThreeDFormat(PresetThreeDFormat)

expression   必需。该表达式返回“应用于”列表中的一个对象。

PresetThreeDFormat   MsoPresetThreeDFormat 类型,必需。指定预置的延伸格式,该格式相应于单击“绘图”工具栏上的“三维效果样式”工具时所出现的选项(按从左至右和从上至下的顺序编号)。

说明

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

示例

本示例向 myDocument 中添加椭圆,并将该椭圆的延伸格式设置为第十二个三维样式。

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