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 物件，或是內嵌在出版物中。

傳回值

圖形

註解

對於 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 支援與意見反應。