ThreeDFormat.SetThreeDFormat Method
Sets the preset extrusion format.
Namespace: Microsoft.Office.Interop.PowerPoint
Assembly: Microsoft.Office.Interop.PowerPoint (in Microsoft.Office.Interop.PowerPoint.dll)
Syntax
'Declaration
Sub SetThreeDFormat ( _
PresetThreeDFormat As MsoPresetThreeDFormat _
)
'Usage
Dim instance As ThreeDFormat
Dim PresetThreeDFormat As MsoPresetThreeDFormat
instance.SetThreeDFormat(PresetThreeDFormat)
void SetThreeDFormat(
MsoPresetThreeDFormat PresetThreeDFormat
)
Parameters
- PresetThreeDFormat
Type: Microsoft.Office.Core.MsoPresetThreeDFormat
Specifies a preset extrusion format that corresponds to one of the options (numbered from left to right, from top to bottom) displayed when you click the 3-D Rotation submenu on the Shape Effects menu.
Remarks
Each preset extrusion format contains a set of preset values for the various properties of the extrusion.
This method sets the PresetThreeDFormat property to the format specified by the PresetThreeDFormat parameter.
The value of the PresetThreeDFormat parameter can be one of these MsoPresetThreeDFormat constants. Specifying msoPresetThreeDFormatMixed causes an error.
msoThreeD1 |
msoThreeD2 |
msoThreeD3 |
msoThreeD4 |
msoThreeD5 |
msoThreeD6 |
msoThreeD7 |
msoThreeD8 |
msoThreeD9 |
msoThreeD10 |
msoThreeD11 |
msoThreeD12 |
msoThreeD13 |
msoThreeD14 |
msoThreeD15 |
msoThreeD16 |
msoThreeD17 |
msoThreeD18 |
msoThreeD19 |
msoThreeD20 |
Examples
This example adds an oval to myDocument and sets its extrusion format to 3D Style 12.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes _
.AddShape(msoShapeOval, 30, 30, 50, 25).ThreeD
.Visible = True
.SetThreeDFormatmsoThreeD12
End With