Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Powerpoint VBA-Makro Suchen und Ersetzen
zurück: Commans Button löst nichts aus weiter: Einzelne Folien ein- und ausblenden per Makro Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Thorondor
Neuling


Verfasst am:
07. Apr 2014, 13:03
Rufname:


Powerpoint VBA-Makro Suchen und Ersetzen - Powerpoint VBA-Makro Suchen und Ersetzen

Nach oben
       Version: Office 2010

Hallo!

Ich habe folgendes Problem: ich habe in einer Powerpoint immer 3 Bilder in jeder Folie und möchte diese Bilder mithilfe des Makros durchnummerieren. Dazu habe ich zunächst jedes Foto mit "Bild X" benannt. Das "X" soll als Platzhalter dienen und durch den Makro durch eine fortlaufende Zahl nummeriert werden. Dazu habe ich folgenden Code zusammengebastelt:
Code:
Sub Ersetzen()
    a = "X"
    i = 1
    For Each folie In Application.ActivePresentation.Slides
        For Each form In folie.Shapes
            If form.HasTextFrame Then
                  If form.TextFrame.HasText Then
                     form.TextFrame.TextRange.Replace FindWhat:=a _
                                                    , Replacewhat:=i
                     i = i + 1
                 End If
            End If
         Next form
    Next folie
End Sub
Nun habe ich aber in manchen Bildern noch eine Bildbeschriftung als Textbox eingefügt, sodass diese mitgezählt wird, obwohl die Textbox nicht den Ausdruck "Bild X" enthält. Das führt dazu, dass ich Bild 1, Bild 2, Bild 3, Bild 6, Bild 7 usw. habe, weil in den Bildern 2 und 3 auch noch eine Textbox ist, die aber nicht als Bildnummerierung genutzt wird.

Das heißt, ich suche jetzt eine Möglichkeit, das Kommando "i = i + 1" nur auszuführen, wenn der Text "X" aus "Bild X" wirklich gefunden wurde. Hat da jemand eine Idee?! Für Antworten im Voraus besten Dank!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Anwendungsübergreifende Fragen: Mit VBA nach bestimmter Dateiendung suchen 4 sascha321 502 01. Nov 2012, 10:35
Isabelle :-) Mit VBA nach bestimmter Dateiendung suchen
Keine neuen Beiträge Office 2010 Forum: Mit VERWEIS von oben nach unten suchen, nicht andersherum 0 Flowdow 365 04. Mai 2012, 10:40
Flowdow Mit VERWEIS von oben nach unten suchen, nicht andersherum
Keine neuen Beiträge Office 2010 Forum: Ersetzen mit Schriftart die gar nicht angezeigt wird 1 offi1948 699 08. März 2012, 11:57
offi1948 Ersetzen mit Schriftart die gar nicht angezeigt wird
Keine neuen Beiträge Office 2010 Forum: Arbeitsgang suchen und mit Stundensatz multiplizieren 2 lordschneider 376 07. Feb 2012, 17:23
lordschneider Arbeitsgang suchen und mit Stundensatz multiplizieren
Keine neuen Beiträge Office 2007 Forum: In Excel nach Lücken suchen 1 Squall_titus 1816 23. März 2010, 20:11
Gast In Excel nach Lücken suchen
Keine neuen Beiträge Fragen & Anregungen zum Office Forum: Suchen nur in Titeln 5 MacG 767 10. Dez 2009, 18:51
RalfP Suchen nur in Titeln
Keine neuen Beiträge Anwendungsübergreifende Fragen: Software suchen Kodak K25 0 Gast 384 08. Nov 2009, 21:03
Gast Software suchen Kodak K25
Keine neuen Beiträge Anwendungsübergreifende Fragen: Selbstständiges suchen von Informationen 0 Seppelxxl 676 12. Jul 2009, 19:56
Seppelxxl Selbstständiges suchen von Informationen
Keine neuen Beiträge Office 2007 Forum: Office 2007 - Suchen in Hilffunktion "F1" geht nic 1 PeeG 1881 11. Jan 2009, 12:05
Chris300876 Office 2007 - Suchen in Hilffunktion "F1" geht nic
Keine neuen Beiträge Anwendungsübergreifende Fragen: Hyperlinks in Word suchen 0 habaeschi 990 11. Aug 2008, 13:56
habaeschi Hyperlinks in Word suchen
Keine neuen Beiträge Office 2007 Forum: Ersetzen in Exdel 0 mtjr 470 09. Jun 2008, 20:15
mtjr Ersetzen in Exdel
Keine neuen Beiträge Anwendungsübergreifende Fragen: Dokumente suchen mit Pfadeingabe 6 schneebär75 971 29. Apr 2008, 14:31
Schneebär75 Dokumente suchen mit Pfadeingabe
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Frontpage Forum