Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 17:49:39
Bedingte Formatierung
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1252to1256
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1252to1256
1252to1256
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aktuelle PPT - Foliennummer auslesen

Aktuelle PPT - Foliennummer auslesen
Pascal
Guten Tag zusammen
Ich möchte aus Excel raus die Foliennummer einer im Hintergrund aktiven PPT - Datei ermitteln. Geht das ?
Soweit bin ich schon gekommen:
Folien = objPP.Activepresentation.Slides.Count
Diese Zeile setzt die Anzahl Folien der aktiven Präsentation in die Variable "Folien"
test = objPP.Activepresentation.Name
Diese Zeile setzt den Namen der aktiven Präsentation in die Variable test
wie kann ich nun den Namen (oder die Foliennummer) der aktiven Folie ermitteln ?
Ziel soll es dann sein, dass ich aus Excel raus mit einem Befehl die aktive Folie festlegen kann.
danke herzlich für Eure Hilfe !
AW: Aktuelle PPT - Foliennummer auslesen
21.03.2012 17:19:03
Kawensmann
Hallo,
so bekommst du die Foliennummer:
objPP.ActivePresentation.SlideShowWindow.View.Slide.SlideIndex
und so den Foliennamen:
objPP.ActivePresentation.SlideShowWindow.View.Slide.Name
Die Folie wechselst du mit:
objPP.ActivePresentation.SlideShowWindow.View.GotoSlide 1

Gruß
Kawensmann
AW: Aktuelle PPT - Foliennummer auslesen
22.03.2012 06:01:22
Pascal
Hi !
Damit werde ich bestimmt weiterkommen.
Herzlichen Dank !
AW: Aktuelle PPT - Foliennummer auslesen
23.03.2012 08:24:59
Selina
Guten Tag nochmals !
Leider komm ich mit diesen Codes nicht weiter :-(
Ich habe zwischenzeitlich mal meinen Code wie folgt umgebaut und umprogrammiert:
MsgBox powerPointApplication.ActivePresentation.SlideShowWindow.View.Slide.SlideIndex
Wenn ich diese Zeile laufen lasse (klar doch, ich habe vorher die powerpointApplication deklariert und auch über diese Zeile hier auf Set gesetzt:
Set powerPointPresentation = powerPointApplication.ActivePresentation
Resultat dieser Test-Message-Box ist korrekterweise also die Aktuelle Foliennummer. Aber leider nur, wenn die PPT im Hintergrund als Bildschirmfüllende Präsentation am Laufen ist.
Ich brauch aber ne Möglichkeit, die Aktuelle Folie auch dann per Message-Box auszugeben, wenn die PPT im Hintergrund zwar geöffnet ist, allerdings nicht im Präsentationsmodus läuft.
Wie geht das ?
Zudem such ich auch noch eine Möglichkeit, nebst der aktuellen Foliennummer auch noch den kompletten Pfad auf diese im Hintergrund geöffnete PPT auszugeben.
Geht das irgendwie ?
wäre wirklich Supersaunett, wenn du mir hier weiterhelfen könntest.
Grüsse
Anzeige
AW: Aktuelle PPT - Foliennummer auslesen
23.03.2012 09:43:43
Kawensmann
Hallo,
ok, wenn die Präsentation nicht läuft, sollte es so gehen: 
MsgBox powerPointApplication.ActiveWindow.View.Slide.Name
'oder
'MsgBox powerPointPresentation.Windows(1).View.Slide.Name
Den Pfad bekommst du so: 
MsgBox powerPointPresentation.FullName
Gruß
Kawensmann
AW: Aktuelle PPT - Foliennummer auslesen
24.03.2012 18:53:41
Pascal
Hallo Kawensman
Ich habe mal deinen Code wie folgt ausprobiert:
Private Sub CommandButton1_Click()
Set powerPointApplication = GetObject(, "PowerPoint.Application")
Set powerPointPresentation = powerPointApplication.ActivePresentation
MsgBox powerPointPresentation.FullName
End Sub
Leider aber läuft der Code auf Fehler:
Variable nicht definiert. Hmmm ?
was mach ich falsch ?
Anzeige
AW: Aktuelle PPT - Foliennummer auslesen
26.03.2012 09:28:38
Kawensmann 

Wenn ich diese Zeile laufen lasse (klar doch, ich habe vorher die powerpointApplication deklariert und auch über diese Zeile hier auf Set gesetzt:
Verarsch jemand anderen, Selina-Pascal ...
AW: Aktuelle PPT - Foliennummer auslesen
26.03.2012 10:27:42
Pascal
Hallo Kawensmann
Hier ging es in keiner Art und Weise darum, dass ich jemanden verarschen will oder wollte !!!
Die zwei verschiedenen Logins kommen daher:
im Geschäft - da log ich mich selber mit Pascal ein
daheim, da war meine Frau eben auch im Herber-Forum unterwegs und eingeloggt. (Selina)
Da fragte ich Sie, ob ich gleich auch noch kurz meinen Beitrag kurz kommentieren dürfe.
Deshalb also mal mit Pascal, mal mit Selina eingeloggt.
SORRYYY !!!!
Anzeige
AW: Aktuelle PPT - Foliennummer auslesen
26.03.2012 12:41:38
Kawensmann
Es geht nicht um den Namen, sondern um das Zitat ...
Du weißt doch ganz offensichtlich, wie man eine Variable deklariert. Warum machst du's dann nicht?
AW: Aktuelle PPT - Foliennummer auslesen
26.03.2012 17:13:59
Pascal
Danke für den Hinweis !
So gings nun - zuminds im Beispiel mit dem Namen der Präsentation
Public Sub CommandButton1_Click()
Dim powerPointApplication As Object
Dim powerPointPresentation As Object
Set powerPointApplication = GetObject(, "PowerPoint.Application")
Set powerPointPresentation = powerPointApplication.Activepresentation
MsgBox powerPointApplication.Activepresentation.FullName
End Sub

Danke herzlich für die Hilfe und Hinweise ;-)
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige