title | keywords | f1_keywords | api_name | ms.assetid | ms.date | ms.localizationpriority | ||
---|---|---|---|---|---|---|---|---|
ThreeDFormat object (Publisher) |
vbapb10.chm3866623 |
|
|
11d57330-c99e-5aa9-d47c-2c5d2846ed4d |
06/04/2019 |
medium |
Represents a shape's three-dimensional formatting.
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.
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
- Application
- BevelBottomDepth
- BevelBottomInset
- BevelBottomType
- BevelTopDepth
- BevelTopInset
- BevelTopType
- ContourColor
- ContourWidth
- Depth
- ExtrusionColor
- ExtrusionColorType
- FieldOfView
- Parent
- Perspective
- PresetExtrusionDirection
- PresetLightingDirection
- PresetLightingSoftness
- PresetMaterial
- PresetThreeDFormat
- RotationX
- RotationY
- Visible
[!includeSupport and feedback]