Поделиться через

Свойство ShapeRange.ThreeD (Publisher)

  • Статья

Возвращает объект ThreeDFormat .

Синтаксис

expression. ThreeD

Выражение Переменная, представляющая объект ShapeRange .

Замечания

Используйте свойство ThreeD , чтобы вернуть объект ThreeDFormat , свойства которого используются для форматирования трехмерного внешнего вида указанной фигуры.

Пример

В этом примере задаются глубина, цвет экструзии, направление экструзии и направление освещения для трехмерных эффектов, примененных к фигуре в активной публикации.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.