Table of contents

ThreeDFormat.Depth 属性 (发布服务器)ThreeDFormat.Depth Property (Publisher)

office 365 dev account|上次更新日期: 2018/3/13
2 参与人员

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


表达式深度expression. Depth

_expression_A 表示ThreeDFormat对象的变量。_expression_A variable that represents a ThreeDFormat object.

返回值Return Value



数值按磅计算;字符串则可以使用 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").

正数的值将产生的延伸正面为原始形状;负值产生的延伸,其背面是原始形状。有效的范围是-600 至 9600 点或以其他任何单位的等效距离。Positive values produce an extrusion whose front face is the original shape; negative values produce an extrusion whose back face is the original shape. The valid range is -600 through 9600 points, or the equivalent distance in all other units.


本示例将一个椭圆添加到当前出版物,然后指定该椭圆延伸 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 
© 2018 Microsoft