Office: Makro für Hintergrundfarben

Hi,

Ich konnte Makros für Textfarben erstellen, damit ich vorgefertigte Farb-Icons im Menü habe.

z.B.

Sub fontRed()
Selection.Font.ColorIndex = wdRed
End Sub

weiss jemand ob das auch mit Hintergrundfarben geht? (und wenn ja, wie)

danke,

Aki

 

Hallo aki,

bei den Füllfarben kommt es drauf an, wovon du den Hintergrund färben willst:
Das Colorformat-Objekt ist zuständig für die Vorder- und Hintergrundfarbe von Autoformen, das Shape-Objekt für Ranges.

Beispiele:

'Range: Für die Füllung einer Tabellenzelle oder eines Absatzhintergrundes:
ActiveDocument.Tables(1).Cell(1, 1).Range.Shading.BackgroundPatternColorIndex = wdRed
Selection.Range.Shading.ForegroundPatternColorIndex = wdRed

'Colorformat: für die Füllung einer Autoform:
ActiveDocument.Shapes(1).Fill.ForeColor = wdColorBlue
Selection.ShapeRange.Fill.ForeColor = wdColorYellow

Bei der Variante mit Selection musst du natürlich im Makro vorab noch den Typ des ausgewählten Elements (Range oder Autoform) prüfen, sonst gibts Fehlermeldungen oder es passiert nichts.

 

Hallo Gerhard,

Ich will Tabellenzeilen markieren, und dann auf das Ikon mit der Farbe klicken - ist das das Range-Makro?

 

Ja klar, hast du es nicht probiert? Hier die Version mit Abfrage, ob die Markierung innerhalb einer Tabelle ist:

Sub ZellenFarbig()
If Selection.Information(wdWithInTable) Then
Selection.Range.Shading.ForegroundPatternColorIndex = wdRed
Else
MsgBox "Erst mal Tabellenzelle(n) markieren!"
End If
End Sub

Aber ich seh den Vorteil gegenüber dem Farbfüll"eimer" im Menüband nicht. Kostet genau so viele Klicks und du kannst obendrein noch die Farbe wählen

 

das Problem bei der Funktion im Menüband ist dass man die Farbe jedes Mal neu raussuchen bzw. definieren muss; Ich will immer die selben zwei selbstdefinierten Farben. Die bleiben zwar eine Weile in der Box anklickbar, aber wenn man runterfährt, oder in den Ruhezustand geht, sind sie weg;

Mir fällt gerade auf dass es nur eine sehr beschränkte Anzahl an möglichen Farben bei der Lösung mit Makros gibt; Eine Option mit Hex-Codes gibt es nicht?

danke

 

Hallo aki,

das war ja nur ein Beispiel. Du kannst statt ...ColorIndex einfach nur ...Color nehmen und dann RGB-Farben angeben.
Obendrein kannst du eine Musterfüllung wählen und dieser mittels BackGroundPatternColor eine Farbe zuweisen. Beispiel:
With Selection.Range
.Shading.ForegroundPatternColor = RGB(12, 123, 12)
.Shading.BackgroundPatternColor = RGB(220, 123, 12)
.Shading.Texture = wdTextureDarkDiagonalCross
End With
Da kannst du dich austoben

 

also diese beiden funktionieren nicht:

Sub HGreen()
'
' HGreen Makro
'
ActiveDocument.Tables(1).Cell(1, 1).Range.Shading.BackgroundPatternColor = 250,255,240
Selection.Range.Shading.ForegroundPatternColor = 250,255,240

End Sub

Fehler: "Erwartet: Anweisungsende"


Sub HGreen()
'
' HGreen Makro
'
ActiveDocument.Tables(1).Cell(1, 1).Range.Shading.BackgroundPatternColor = #fafff0
Selection.Range.Shading.ForegroundPatternColor = #fafff0

End Sub

Fehler: "Erwartet: Ausdruck"

 

Hallo aki,

3 Sachen:

1.
Die Variante mit ActiveDocument.Tables(1) ist für deine Zwecke eher ungeeignet, weil sie sich ja immer nur auf die erste Tabelle im Dokument bezieht

2.
An die Syntax musst du dich schon halten:
Selection.Range.Shading.ForegroundPatternColor = RGB(250,255,240)

3.
Wenn du einen Hex-Wert für die Farbe hast, musst du diesem ein &H voranstellen:
Selection.Range.Shading.ForegroundPatternColor = &HFAFFF0 (das hab ich mir auch erst ergoogeln müssen, weil ich bisher keine Notwendigkeit sah, mit Hexwerten zu arbeiten.

Eine Übersicht über die Farbkonstanten von Word findest du hier: WdColor-Aufzählung (Word)

 

Ok, great, jetzt ist es genau das was ich wollte,

danke!