PowerPoint) (Shapes.AddOLEObject 方法

建立 OLE 物件。 傳回 Shape 物件，該物件代表新的 OLE 物件。

語法

expression。 AddOLEObject( _Left_, _Top_, _Width_, _Height_, _ClassName_, _FileName_, _DisplayAsIcon_, _IconFileName_, _IconIndex_, _IconLabel_, _Link_ )

expression 代表 Shapes 物件的變數。

參數

名稱	必要/選用	資料類型	描述
Left	選用	Single	相對於投影片的左上角，以點為單位指定新物件的左上角位置。 預設值為 0 (零)。
Top	選用	Single	相對於投影片的左上角，以點為單位指定新物件的左上角位置。 預設值為 0 (零)。
Width	選用	Single	以點為單位指定 OLE 物件的初始寬度。
Height	選用	Single	以點為單位指定 OLE 物件的初始高度。
ClassName	選用	String	要建立之物件的 OLE 長類別名稱或 ProgID。 您必須指定該物件的 ClassName 引數和 FileName 引數，但不可同時指定兩者。
FileName	選用	String	要從其建立物件的檔案。 如果未指定路徑，就會使用目前所在的資料夾。 您必須指定該物件的 ClassName 引數和 FileName 引數，但不可同時指定兩者。
DisplayAsIcon	選用	MsoTriState	決定 OLE 物件是否要顯示為圖示。
IconFileName	選用	String	包含要顯示的圖示的檔案。
IconIndex	選用	Long	IconFileName 內的圖示索引。 檔案中的第一個圖示的索引編號為 0 (零)。 如果已知索引編號的圖示不在 IconFileName 中，則會使用索引編號為 1 的圖示 (即檔案中的第二個圖示)。 預設值為 0 (零)。
IconLabel	選用	String	在圖示之下所顯示的標籤 (標題)。
Link	選用	MsoTriState	決定是否要建立它的檔案連結的 OLE 物件。 如果您為 ClassName 指定一個值，這個引數必須是 msoFalse 。

傳回值

圖形

範例

本範例在 myDocument 中新增連結的 Word 文件。

Set myDocument = ActivePresentation.Slides(1) 
myDocument.Shapes.AddOLEObject Left:=100, Top:=100, _ 
    Width:=200, Height:=300, _ 
    FileName:="c:\my documents\testing.doc", Link:=msoTrue

本範例將新的 Microsoft Excel 工作表新增到 myDocument。 該工作表會顯示為圖示。

Set myDocument = ActivePresentation.Slides(1) 
myDocument.Shapes.AddOLEObject Left:=100, Top:=100, _ 
    Width:=200, Height:=300, _ 
    ClassName:="Excel.Sheet", DisplayAsIcon:=True

本範例將命令按鈕新增到 myDocument。

Set myDocument = ActivePresentation.Slides(1) 
myDocument.Shapes.AddOLEObject Left:=100, Top:=100, _ 
    Width:=150, Height:=50, ClassName:="Forms.CommandButton.1"

另請參閱

Shapes 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。