Shapes.AddOLEObject 方法 (Publisher)

将表示 OLE 对象的新 Shape 对象添加到指定的 Shapes 集合。

语法

表达式。AddOLEObject (Left、 Top、 Width、 Height、 ClassName、 FileName、 Link)

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

参数

名称	必需/可选	数据类型	说明
Left	必需	Variant	代表 OLE 对象的形状的左边缘的位置。
Top	必需	Variant	代表 OLE 对象的形状的上边缘的位置。
Width	可选	Variant	代表 OLE 对象的形状的宽度。 默认值是 -1，表示形状的宽度会根据对象的数据自动设置。
Height	可选	Variant	代表 OLE 对象的形状的高度。 默认值为 -1，这意味着形状的高度将根据对象的数据自动设置。
ClassName	可选	String	要添加的 OLE 对象的类名称。
FileName	可选	String	要添加的 OLE 对象的文件名。 如果未指定路径，将使用当前的工作文件夹。
Link	可选	MsoTriState	确定 OLE 对象是链接到出版物还是嵌入到出版物。

返回值

Shape

说明

对于 Left、 Top、 Width 和 Height 参数，数值以 磅为单位计算：字符串可以位于 Microsoft Publisher (支持的任何单元中，例如，“2.5 in”) 。

必须指定 ClassName 或 FileName。 如果这两个参数都未指定或都指定了，将会出错。

Link 参数可以是 Microsoft Office 类型库中声明的 MsoTriState 常量之一，如下表所示。

常量	说明
msoFalse	嵌入 OLE 对象。
msoTrue	链接 OLE 对象。 默认值。

示例

以下示例将一个 Microsoft Office Excel 工作表添加到当前出版物的第一页，并激活该工作表以进行编辑。

Dim shpSheet As Shape 
 
Set shpSheet = ActiveDocument.Pages(1).Shapes.AddOLEObject _ 
 (Left:=72, Top:=72, ClassName:="Excel.Sheet") 
 
shpSheet.OLEFormat.Activate

支持和反馈

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