Shapes.Add3DModel 方法 (PowerPoint)

依据现有文件创建 Model3DFormat 对象。 返回一个 Shape 对象，该对象代表新的 3D 模型。

语法

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

expression：一个表示 Shapes 对象的变量。

参数

名称	必需/可选	数据类型	说明
FileName	必需	String	将依据其创建 3D 模型对象的文件。
LinkToFile	必需	MsoTriState	确定 3D 模型是否将链接到依据其创建该模型的文件。
SaveWithDocument	必需	MsoTriState	确定是否随在其中插入链接的 3D 模型的文档一起保存该模型。 如果 LinkToFile 为 msoFalse，则此参数必须为 msoTrue。
Left	必需	Single	3D 模型左边缘相对于幻灯片左边缘的位置（以磅为单位）。
Top	必需	Single	3D 模型上边缘相对于幻灯片上边缘的位置（以磅为单位）。
Width	可选	Single	3D 模型的宽度，以磅为单位（输入 -1 以根据 3D 模型尺寸自动计算宽度）。
Height	可选	Single	3D 模型的高度，以磅为单位（输入 -1 以根据 3D 模型尺寸自动计算高度）。

返回值

型号

示例

本示例将依据文件 Sphere.glb 创建的 3D 模型添加到 mySlide。 插入的 3D 模型嵌入在活动文档中。

Set mySlide = Application.ActivePresentation.Slides(1) 
Set myShape = mySlide.Shapes.Add3DModel(FileName:="c:\my 3d models\sphere.glb", LinkToFile:=False, SaveWithDocument:=True, Left:=100, Top:=100, Width:=70, Height:=70 )

支持和反馈

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