ThreeDFormat.Depth 属性 (Publisher)ThreeDFormat.Depth Property (Publisher)

返回或设置variant 类型的值,该值指示该形状的延伸深度。Returns or sets a Variant indicating the depth of the shape's extrusion. 为可读/写属性。Read/write.

语法Syntax

expressionexpression. DepthDepth

_表达式_一个代表ThreeDFormat对象的变量。expression A variable that represents a ThreeDFormat object.

返回值Return value

VariantVariant

注解Remarks

数值按磅计算;字符串则可以使用 Microsoft Publisher 支持的任何单位(例如"2.5 英寸")。Numeric values are evaluated in points; strings can be in any units supported by Microsoft Publisher (for example, "2.5 in").

正值生成的延伸,其正面是原始形状;负值生成的延伸,其背面是原始形状。Positive values produce an extrusion whose front face is the original shape; negative values produce an extrusion whose back face is the original shape. 有效范围是从 -600 到 9600 磅,或是以任何其他单位表示的相等间隔。The valid range is -600 through 9600 points, or the equivalent distance in all other units.

示例Example

本示例将一个椭圆添加到当前出版物,然后指定该椭圆延伸 50 磅的深度,延伸部分为紫色。This example adds an oval to the active publication, and then specifies that the oval be extruded to a depth of 50 points and that the extrusion be purple.

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