ich habe mir eine Landkarte (mit 16 Ländern=Bilder) erstellt und möchte nun mit einem Mausklick die Farbe (das Land hervorheben) ändern.
Sub SP1()
With ActiveSheet.Shapes("TESTER")
.Fill.ForeColor.RGB = RGB(255, 0, 0) 'Färbt den transparenten Teil des Bildes
.Fill.Transparency = 1 'stellt Transparenz dar
.Fill.Transparency = 0 'Transparenz ausgeschaltet
End With
End Sub
Ich suche den VBA-Befehl der den nicht transparenten Teil des Bildes eine andere Farbe zuweist.
Mit Hand geht es ja.
1. Bild anklicken.
2. Bildtools (Format) auswählen
3. Neu einfärben und Farbe wählen.
Gruß SP