Şekle tıklandığında rengini değiştirme

[Myazar78Anestezi]

Addshape özelliği kullanarak bir şekil oluşturdum. Hücrelere tek tıkla işlem yaptırdığımız gibi aynı şekilde ben bu şekle ("Dikdörtgen 1") tıkladığımda örnegin renginin yeşil olmasını istiyorum. Yardimci olursaniz sevinirim saygılar.

 

[EmrExcel16]

Deneyiniz..

Sub Renklendir()
    If ActiveSheet.Shapes(Application.Caller).Fill.ForeColor.RGB = RGB(0, 176, 80) = False Then
        ActiveSheet.Shapes(Application.Caller).Fill.ForeColor.RGB = RGB(0, 176, 80)
    End If
End Sub

 

[Myazar78Anestezi]

Deneyiniz..

Sub Renklendir()
    If ActiveSheet.Shapes(Application.Caller).Fill.ForeColor.RGB = RGB(0, 176, 80) = False Then
        ActiveSheet.Shapes(Application.Caller).Fill.ForeColor.RGB = RGB(0, 176, 80)
    End If
End Sub

Hocam çalıştıramadım.Application.caller = error2023 hatasi verdi Ayrıca bu kod istedigim sekle tek tıklamamla rengini yesile cevirir mi.

 

[EmrExcel16]

Sayfanızdaki şekle makro ata ile kodları atadınız ve şekle bastığınızda bu hatayı mı verdi ?

 

[Myazar78Anestezi]

Deneyiniz..

Sub Renklendir()
    If ActiveSheet.Shapes(Application.Caller).Fill.ForeColor.RGB = RGB(0, 176, 80) = False Then
        ActiveSheet.Shapes(Application.Caller).Fill.ForeColor.RGB = RGB(0, 176, 80)
    End If
End Sub

Hocam biraz daha ayrıntı anlatayım. Ben bir butona addshape özelligi ile 4 × 4 boyutunda toplam 16 tane kare şekil olusturan bir makro atadim. Butona bastigimda bu sıkıntısız calisiyor. Bunu yaptim ama bu karelerden herhangi birine tek tıkladığımda rengi yeşile dönsün istiyorum. Bu şekillerin hepsine makro atanarakta yaptirilabilir belki ama bu cok uzun bi yol olur dedim. Siz daha iyi bilirsiniz

 

[EmrExcel16]

Kodlarınızı paylaşın.

 

[Myazar78Anestezi]

Sayfanızdaki şekle makro ata ile kodları atadınız ve şekle bastığınızda bu hatayı mı verdi ?

Yazdiginiz kodu şekle atadim. Sıkıntısız calisti. Ama ben herhangi bir sekle tıkladıgımda tıkladıgım seklin renginin degismesini istiyorum. Hücrelerde target.address kullanarak yaptirdigimiz gibi

 

[EmrExcel16]

Kodlarınızdaki "AddShape" bu satırın altına Selection.OnAction = "Renklendir" şu satırı ekleyin , böylelikle tüm oluşturulan şekillere atanmış olur kodlar.

 

[Myazar78Anestezi]

Kodlarınızdaki "AddShape" bu satırın altına Selection.OnAction = "Renklendir" şu satırı ekleyin , böylelikle tüm oluşturulan şekillere atanmış olur kodlar.

Hocam oldu çok çok teşekkür ederim çok sağolun kolay gelsin

 

[EmrExcel16]

Rica ederim , iyi çalışmalar..