PresetMaterial 属性

       

返回或设置延伸表面的材料。可读写。MsoPresetMaterial 类型。

expression.PresetMaterial

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

示例

本示例指定 myDocument 中第一个形状的延伸表面为线框。

Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(1).ThreeD
    .Visible = True
    .PresetMaterial = msoMaterialWireFrame
End With