Shapes.Add3DModel 方法 (Word)

在绘图画布上添加 3D 模型。 返回一个 Shape 对象，该对象代表 3D 模型并将其添加到 CanvasShapes 集合。

语法

expression.Add3DModel (FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)

expression 是必需的。 表示 Shapes 集合的变量。

参数

名称	必需/可选	数据类型	说明
FileName	必需	String	3D 模型的路径和文件名。
LinkToFile	可选	Variant	如果为 True，则将 3D 模型链接到创建它的文件。 如果为 False，则使 3D 模型成为文件的独立副本。 默认值为 False。
SaveWithDocument	可选	Variant	如果为 True，则将链接的 3D 模型与文档一起保存。 默认值为 False。
Left	可选	Variant	新的 3D 模型的左边缘相对于绘图画布的位置（以磅为单位）。
Top	可选	Variant	新的 3D 模型的上边缘相对于绘图画布的位置（以磅为单位）。
Width	可选	Variant	3D 模型的宽度，以磅为单位（输入 -1 以根据 3D 模型尺寸自动计算宽度）。
Height	可选	Variant	3D 模型的高度，以磅为单位（输入 -1 以根据 3D 模型尺寸自动计算高度）。

返回值

型号

示例

本示例在活动文档中新创建的绘图画布上嵌入 3D 模型。

Sub NewCanvasPicture() 
 Dim shpCanvas As Shape 
 
 'Add a drawing canvas to the active document 
 Set shpCanvas = ActiveDocument.Shapes.AddCanvas(Left:=100, Top:=75, Width:=200, Height:=300)
 
 'Add a 3D model to the drawing canvas 
 shpCanvas.CanvasItems.Add3DModel(FileName:="c:\my 3D models\sphere.glb", LinkToFile:=False, SaveWithDocument:=True, Left:=100, Top:=100, Width:=70, Height:=70)
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。