Freigeben über


Model3DFormat.Application-Eigenschaft (Excel)

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

Syntax

Ausdruck. Anwendung

Ausdruck Eine Variable, die ein Model3DFormat-Objekt darstellt.

Rückgabewert

Objekt

Beispiel

In diesem Beispiel wird ein Presentation -Objekt an die Prozedur übergeben. Die Prozedur fügt der Präsentation eine Folie hinzu und speichert die Präsentation dann in dem Ordner, in dem Microsoft Excel 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

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.