VSTO VB.net Powerpoint Dateiname der geöffneten .pptx Datei herausbekommen

Question

Hi Zusammen,

Ich suche nach einer Möglichkeit den Dateinamen mittels eines VSTO Plugins abzufangen. Zum Test würde ich ihn mir gerne in einer Msgbox anzeigen lassen. Ausgelesen werden soll der Dateiname beim Starten des Vollbildmodus.

Private Sub Gotofullscreen() Handles Application.SlideShowBegin

MsgBox("Dateiname: " & Dateiname)

End Sub

Über eine Antwort würde ich mich sehr freuen.

Answer 1

Hallo,

den Dateinamen bekommst Du mit Presentation.Name

Answer 2

Hab jetzt folgendes gemacht:

Private Sub Gotofullscreen() Handles Application.SlideShowBegin
        Dim Dateiname As String
        Dateiname = Presentation.Name
        MsgBox(Dateiname)
End Sub

bekomme aber diese Fehlermeldung:

BC30469 Der Verweis auf einen nicht freigegebenen Member erfordert einen Objektverweis.

Answer 3

Hallo jufk,

Presentation ist eine Eigenschaft von SlideShowWindow.

Probiere mal folgendes:

Private Sub GotoFullScreen(ByVal Wn As SlideShowWindow) Handles Application.SlideShowBegin
    MsgBox Wn.Presentation.FullName
End Sub

Grüße

Roland

Answer 4

Hallo,

in der Referenz steht das "Presentation" eine Variable ist, die ein "Presentation-Objekt" darstellt.

Viel Erfolg

Answer 5

Vielen Dank.

Es funktioniert.

Gruß jufk