Skip to content

Latest commit

 

History

History
90 lines (66 loc) · 3 KB

Publisher.ThreeDFormat.md

File metadata and controls

90 lines (66 loc) · 3 KB
title keywords f1_keywords api_name ms.assetid ms.date ms.localizationpriority
ThreeDFormat object (Publisher)
vbapb10.chm3866623
vbapb10.chm3866623
Publisher.ThreeDFormat
11d57330-c99e-5aa9-d47c-2c5d2846ed4d
06/04/2019
medium

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

See also

[!includeSupport and feedback]