Haritada İl Seçtiğimde İli Renklendirme

[M.Ç.]

Merhaba ,

Bir haritam var. Haritayı sekiller bölümünden serbest çizim yaparak çizdim. Her ilin seklin adına ilin adını verdim. Şekle makro ata diyerek , şekle tıkladığımda a1 hücresine ilin adını yazdırıyorum. Fakat rengini değiştiremiyorum. Seçtiğim il siyah renk olsun başka bir ili seçtiğimde eski seçtiğim eski rengine geri dönsün yeni seçtiğim il siyah olsun istiyorum. Seçtiğimde siyah oluyor iller ama başka bir ili seçtiğimde eski rengine dönmüyor siyah kalıyor. Kod aşağıdaki gibi nerede hata yapıyorum acaba.

Başta bu şekilde yazdım. Ama bu şekliyle geri dönmüyor tabi.
Sub Edirne_Tıkla()
Range("A1").Value = "EDİRNE"
ActiveSheet.Shapes("Edirne").Fill.ForeColor.SchemeColor = 8


Sonra if ile denemek istedim ama bu sefer hiç renklendiremedim.

Sub Edirne_Tıkla()
Range("A1").Value = "EDİRNE"

If ActiveSheet.Shapes("Edirne").Select Then
ActiveSheet.Shapes("Edirne").Fill.ForeColor.SchemeColor = 8
Else
ActiveSheet.Shapes("Edirne").Fill.ForeColor.SchemeColor = 1
End If

Başka bir yönteme de açığım ama 81 il olduğu düşünülürse pratik bir şey arıyorum

 

[Muzaffer Ali]

Haritanın olduğu sayfaya aşağıdaki kodları kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    Dim Bak As Shape
    For Each Bak In ActiveSheet.Shapes
        If Bak.Fill.ForeColor.ObjectThemeColor = 13 Then
            Bak.Fill.ForeColor = Bak.Line.ForeColor
            Exit For
        End If
    Next

    With ActiveSheet.Shapes.Range(Array([A1]))
        .Line.ForeColor = .Fill.ForeColor
        .Fill.ForeColor.ObjectThemeColor = 13
    End With
End Sub