Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1236to1240
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
1236to1240
1236to1240
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

PowerPoint-Folien zählen

PowerPoint-Folien zählen
ptonka
Hallo zusammen,
ich muss mit einem Excel-Makro ein Verzeichnis mit PowerPoint-Dateien auswerten.
Zusätzliche Anforderung ist, die Anzahl der Folien in den jeweiligen PP-Dateien zu zählen.
Ist das mit vba möglich?
Gruß,
Ptonka

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: PowerPoint-Folien zählen
18.11.2011 14:00:26
JOWE
Hallo,
so vllt.? 
Sub CountPPTSlides()
Dim myApp As Object
Dim myFile As String
Dim numSl As Long
myFile = "c:\daten\temp\präsentation1.ppt"
Set myApp = CreateObject("PowerPoint.application")
With myApp
.Activate
.presentations.Open Filename:=myFile
numSl = .ActivePresentation.Slides.Count
.Quit
End With
Set myApp = Nothing
MsgBox numSl, vbOKOnly, "Info"
End Sub
Gruß
Jochen
AW: PowerPoint-Folien zählen
21.11.2011 15:33:58
Ptonka
Hallo JOWE,
Super - funktioniert prima - Danke vielmals
Gruß,
Ptonka
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige