PowerPoint: Eigene Textmarker-Farben mit dem VBA-Makro „ResetRecentColors()“ festlegen

In PowerPoint kannst Du Textabschnitte und Wörter mit einer Texthervorhebungsfarbe markieren. Den Befehl findest Du unter Start > Schriftart > Texthervorhebungsfarbe.

Es stehen 15 Farben zur Auswahl, doch Du kannst sie nicht ändern oder im Folienmaster definieren.

Eigene Textmarker-Farben nur über Umweg möglich

Teil meines Corporate Designs ist Orange, das als Textmarker-Farbe fehlt.

Um Texte in dieser Farbe hervorzuheben, gehe ich so vor:

Ich füge eine beliebige Form auf der Folie ein.
Ich färbe die Form in Orange; in meinem Fall ist das der Hexwert #F59D40 oder RGB: 245, 157, 64.
Diese Farbe erscheint nun unter „zuletzt verwendete Farben“.
Ich lösche die Form.
Schließlich wähle ich Orange aus den zuletzt verwendeten Farben.

Die Farben sind flüchtig

PowerPoint speichert bis zu 10 zuletzt verwendete Farben. Bei mehr als 10 überschreibt es die Liste. Diese Farben sind also flüchtig, und Du musst den Umweg eventuell wiederholen, um die richtige Texthervorhebungsfarbe auswählen zu können.

Ist ein VBA-Makro die Lösung?

Ich fragte mich, ob ein Makro diese Farben ändern kann. So könnte ich bei Bedarf das Makro aufrufen: Ein Klick, und die gewünschte Farbe steht bereit.

Über VBA (Visual Basic for Applications) kann ich die Texthervorhebungsfarben zwar nicht direkt ändern, aber die Liste der zuletzt verwendeten Farben anpassen.

Dieses VBA-Makro nutzt einen Trick

Chris Newman (TheSpreadsheetGuru) hat ein solches VBA-Makro geschrieben. Du findest es auf seiner Webseite: https://www.thespreadsheetguru.com/add-recent-colors-to-powerpoint-palette/

Hier ist das Makro, das ich verwende. Ich habe die Kommentare ins Deutsche übersetzt und das Skript leicht optimiert:

	Sub ResetRecentColors()
	' Zweck:
	' In PowerPoint die Liste mit den zuletzt verwendeten Farben löschen
	' und mit eigenen Farben (RGB-Farbcodes, max. 10) wieder auffüllen.
	' Diese Farben können zur Hervorhebung von Texten verwendet werden.
	' Quellen:
	' https://www.TheSpreadsheetGuru.com/the-code-vault
	' https://www.TheSpreadsheetGuru.com/add-recent-colors-to-powerpoint-palette/

	Dim ColorList As Variant
	Dim i As Integer

	' Array-Liste mit RGB-Farbcodes,
	' die zu den zuletzt verwendeten Farben hinzugefügt werden (max. 10).
	ColorList = Array( _
	RGB(245, 157, 64), _
	RGB(156, 245, 64), _
	RGB(160, 128, 95), _
	RGB(222, 64, 245), _
	RGB(64, 197, 245) _
	)
	' ACHTUNG: Der letzte Wert in der ^^Liste endet OHNE Komma!

	' Zuletzt verwendete Farben löschen. [OPTIONAL]
	ActivePresentation.ExtraColors.Clear

	' Durch die Liste der RGB-Farbodes gehen und
	' zu den zuletzt verwendeten Farben hinzufügen.
	For i = LBound(ColorList) To UBound(ColorList)
	If i > 9 Then Exit For
	ActivePresentation.ExtraColors.Add ColorList(i)
	Next i

	End Sub

view raw ResetRecentColors.vba hosted with ❤ by GitHub

Die einzelnen Schritte des Makros erklärt

Dieses VBA-Makro für PowerPoint löscht die Liste der zuletzt verwendeten Farben und fügt neue hinzu.

In dem Array „ColorList“ kannst Du die RGB-Farbwerte hinterlegen, die als zuletzt verwendete Farben erscheinen sollen.

In Zeile 24 wird mit dem Befehl „Clear“ die Liste mit den zuletzt verwendeten Farben gelöscht. Wenn Du das nicht möchtest, entferne die Zeile oder kommentiere sie aus (füge ein einfaches Anführungszeichen am Zeilenanfang ein).

Schließlich fügt das Makro die in ColorList hinterlegten RGB-Werte der Reihe nach der Liste hinzu.

So aktivierst Du das Makro in PowerPoint

Um das Makro in PowerPoint zu aktivieren, folge diesen Schritten:

Öffne oder erstelle eine PowerPoint-Datei, die das Makro enthalten soll.
Drücke <Alt>+<F8>: Das Fenster „Makro“ erscheint.
Schreibe „xxx“ in das Feld „Makroname“ und klicke auf „Erstellen“; die „x“ sind Platzhalter, um den Button „Erstellen“ zu aktivieren.
Ersetze im neuen Fenster die Zeilen „Sub xxx() … End Sub“ durch den oben gelisteten Code.
Schließe das Fenster, sodass nur das PowerPoint-Fenster offen bleibt.
Speichere die Datei als PowerPoint-Präsentation mit Makros (*. pptm).
Drücke erneut <Alt>+<F8>: Das Makro „ResetRecentColors“ sollte nun sichtbar sein.
Klicke auf den Makronamen und dann auf „Ausführen“.
Überprüfe die Liste der zuletzt verwendeten Farben.

Clever: Das VBA-Makro in einer separaten Datei

Um das Makro in einer anderen PowerPoint-Datei zu nutzen, gehe so vor:

Öffne zusätzlich die PowerPoint-Datei mit dem Makro (*. pptm).
Wechsle in das Fenster der PowerPoint-Datei, in der Du die Textmarker-Farbe benötigst.
Drücke <Alt>+<F8> und wähle im Fenster „Makro“ unter „Makro in:“ die Datei, die das Makro enthält.
Doppelklicke auf den Makronamen „ResetRecentColors“, das Makro wird ausgeführt.
Überprüfe die Liste der zuletzt verwendeten Farben.

Viel Spaß beim Ausprobieren!