Свойство ThreeDFormat.Depth (Publisher)

Статья
04/07/2023

Возвращает или задает значение Variant , указывающее глубину экструзии фигуры. Для чтения и записи.

Синтаксис

expression. Глубина

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

Возвращаемое значение

Variant

Примечания

Числовые значения оцениваются в пунктах; строки могут находиться в любых единицах, поддерживаемых Microsoft Publisher (например, "2.5 in").

Положительные значения создают экструзию, лицевой стороной которой является исходная форма; отрицательные значения создают экструзию, задняя грань которой является исходной фигурой. Допустимый диапазон — от -600 до 9600 точек или эквивалентное расстояние во всех остальных единицах.

Пример

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

Dim shpNew As Shape 
 
Set shpNew = ActiveDocument.Pages(1).Shapes _ 
 .AddShape(Type:=msoShapeOval, _ 
 Left:=90, Top:=90, Width:=90, Height:=40) 
 
With shpNew.ThreeD 
 .Visible = True 
 .Depth = 50 
 .ExtrusionColor.RGB = RGB(255, 100, 255) 
End With

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

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

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