Shapes.Add3DModel 方法 (Excel)

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

语法

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

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

参数

名称	必需/可选	数据类型	说明
FileName	必需	String	将从中创建 3D 模型的文件。
LinkToFile	可选	Variant	确定 3D 模型是否将链接到依据其创建该模型的文件。
SaveWithDocument	可选	Variant	确定是否随在其中插入链接的 3D 模型的文档一起保存该模型。
Left	可选	Variant	相对于文档左上角的 3D 模型左上角的位置（以磅为单位）。
Top	可选	Variant	相对于文档顶部的 3D 模型左上角的位置（以磅为单位）。
Width	可选	Variant	3D 模型的宽度，以磅为单位（输入 -1 以根据 3D 模型尺寸自动计算宽度）。
Height	可选	Variant	3D 模型的高度，以磅为单位（输入 -1 以根据 3D 模型尺寸自动计算高度）。

返回值

Shape

注释

LinkToFile 参数的值可以是以下 MsoTriState 常量之一。

常量	说明
msoCTrue	不支持。
msoFalse	使 3D 模型成为文件的独立副本。
msoTriStateMixed	不支持。
msoTriStateToggle	不支持。
msoTrue	将 3D 模型链接到从中创建该模型的文件。

SaveWithDocument 参数的值可以是以下 MsoTriState 常量之一。

常量	说明
msoCTrue	不支持。
msoFalse	仅在文档中存储链接信息。
msoTriStateMixed	不支持。
msoTriStateToggle	不支持。
msoTrue	随在其中插入链接的 3D 模型的文档一起保存该模型。 如果 LinkToFile 为 msoFalse，则此参数必须为 msoTrue。

示例

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

Set mySheet = Application.ActiveWorkbook.ActiveSheet
Set myShape = mySheet.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 支持和反馈，获取有关如何接收支持和提供反馈的指南。