Word) (Model3DFormat.Application 屬性

會傳回代表指定之物件的建立者的 Application 物件。

語法

運算式。應用

表達 代表 Model3DFormat 物件的 變數。

傳回值

物件

範例

在本例中為 Presentation 物件會傳遞至程序。 此程式會將投影片新增至簡報，然後將簡報儲存在 Microsoft Word 執行所在的資料夾中。

Sub AddAndSave(pptPres As Presentation)

    pptPres.Slides.Add 1, 1

    pptPres.SaveAs pptPres.Application.Path & "\Added Slide"

End Sub

本範例顯示在使用中簡報第一張投影片上建立每個連結 OLE 物件的應用程式名稱。

For Each shpOle In ActivePresentation.Slides(1).Shapes

    If shpOle.Type = msoLinkedOLEObject Then

        MsgBox shpOle.OLEFormat.Application.Name

    End If

Next

支援和意見反應

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