VBA Linien Farbe ändern

[Rabe]

Noch etwas erweitert:

jetzt sollen es ja für die Pfeile 3 verschiedene "Farben" sein, je nachdem ob die Antwort "ja" oder "nein" lautet:

rot - unsichtbar
grün - unsichtbar

[snb]

Hättest du doch einfach selbst.... ;)

Code:

Sub M_snb()
   Shapes("A_" & Application.Caller).Line.ForeColor.RGB = RGB(-(CheckBoxes(Application.Caller) <> 1) * 220, -(CheckBoxes(Application.Caller) = 1) * 220, 0)
End Sub

oder:

Code:

Sub M_snb()
   y = Abs(CheckBoxes(Application.Caller) = 1)
   Shapes("A_" & Application.Caller).Line.ForeColor.RGB = RGB((1 - y) * 220, y * 220, 0)
End Sub

[Schall87]

Hallöchen,

schaue Dir mal an, wie in der Datei von snb das Makro aufgerufen wird bzw. wie die Checkbox mit dem Code zum Färben "verzahnt" ist.

Hallo,

sorry aber ich finde die Verbindung oder Verzahnung nicht die du meinst, könnt Ihr mir schritt für schritt Helfen?
Ich bin nicht der hellste in vba.

[Rabe]

Hi,

Hättest du doch einfach selbst.... ;)

jetzt wechseln sie zwischen rot und grün, das war es aber nicht, was Schall wollte, sondern:

die einen Pfeile sollen wechseln zwischen rot und unsichtbar und andere Pfeile zwischen grün und unsichtbar.