Freigeben über


TextRange.Application-Eigenschaft (PowerPoint)

Gibt ein Application -Objekt, das den Ersteller des angegebenen Objekts darstellt.

Syntax

Ausdruck. Anwendung

Ausdruck Eine Variable, die ein TextRange-Objekt darstellt.

Rückgabewert

Anwendung

Beispiel

In diesem Beispiel wird ein Presentation -Objekt an die Prozedur übergeben. Die Prozedur der Präsentation eine Folie hinzugefügt, und klicken Sie dann die Präsentation gespeichert, in dem Ordner, in dem Microsoft PowerPoint ausgeführt wird.

Sub AddAndSave(pptPres As Presentation)

    pptPres.Slides.Add 1, 1

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

End Sub

In diesem Beispiel wird der Name der Anwendung angezeigt, die die verschiedenen verknüpften OLE-Objekte auf Folie 1 der aktiven Präsentation erstellt hat.

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

    If shpOle.Type = msoLinkedOLEObject Then

        MsgBox shpOle.OLEFormat.Application.Name

    End If

Next

Siehe auch

TextRange-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.