ThreeDFormat object (Publisher)
Represents a shape's three-dimensional formatting.
Remarks
You cannot apply three-dimensional formatting to some kinds of shapes, such as beveled shapes. Most of the properties and methods of the ThreeDFormat object for such a shape will fail.
Use the Shape.ThreeD property to return a ThreeDFormat object.
Example
This example sets the depth, extrusion color, extrusion direction, and lighting direction for the 3D effects applied to shape one in the active publication.
Sub SetThreeDSettings()
Dim tdfTemp As ThreeDFormat
Set tdfTemp = _
ActiveDocument.Pages(1).Shapes(1).ThreeD
With tdfTemp
.Visible = True
.Depth = 50
.ExtrusionColor.RGB = RGB(255, 100, 255)
.SetExtrusionDirection _
PresetExtrusionDirection:=msoExtrusionTop
.PresetLightingDirection = msoLightingLeft
End With
End Sub
Methods
Properties
- Application
- BevelBottomDepth
- BevelBottomInset
- BevelBottomType
- BevelTopDepth
- BevelTopInset
- BevelTopType
- ContourColor
- ContourWidth
- Depth
- ExtrusionColor
- ExtrusionColorType
- FieldOfView
- Parent
- Perspective
- PresetExtrusionDirection
- PresetLightingDirection
- PresetLightingSoftness
- PresetMaterial
- PresetThreeDFormat
- RotationX
- RotationY
- Visible
See also
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.