title | keywords | f1_keywords | api_name | ms.assetid | ms.date | ms.localizationpriority | ||
---|---|---|---|---|---|---|---|---|
ThreeDFormat.PresetLightingDirection property (Publisher) |
vbapb10.chm3801349 |
|
|
94957653-a4e1-bcb6-7697-ed10d1b54301 |
06/15/2019 |
medium |
Returns or sets an MsoPresetLightingDirection constant that represents the position of the light source relative to the extrusion. Read/write.
expression.PresetLightingDirection
expression A variable that represents a ThreeDFormat object.
MsoPresetLightingDirection
The PresetLightingDirection property value can be one of the MsoPresetLightingDirection constants declared in the Microsoft Office type library.
The lighting effects that you set will not be apparent if the extrusion has a wireframe surface.
This example sets the extrusion for the first shape on the first page of the active publication to extend toward the top of the shape and that the lighting for the extrusion come from the left. For this example to work, the specified shape must be a 3D shape.
Sub ExtrusionLighting()
With ActiveDocument.Pages(1).Shapes(1).ThreeD
.Visible = True
.SetExtrusionDirection msoExtrusionTop
.PresetLightingDirection = msoLightingLeft
End With
End Sub
[!includeSupport and feedback]