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
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.