共用方式為

PowerPoint) (ShapeRange.Application 屬性

  • 發行項

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

語法

運算式。應用

表達 代表 ShapeRange 物件的 變數。

傳回值

物件

範例

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

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

另請參閱

ShapeRange 物件

支援和意見反應

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