excel sayfasındaki commandbutonun üzerine mause ile gelince rengi değişsin

[istikam]

Merhaba. İlgili örnekleri forumda aramaktan yoruldum.

Çalışma sayfası üzerinde bulunan bir buton var. Mause ile üzerine gelince rengi değişmeli ve mause dışarı çıkınca eski rengine dönmeli.

Bununla ilgili userformun içindeki bir butonda bu özelliği sağlayan makroyu forumdan buldum, çalışıyor fakat sayfa üzerindeki buton için aynı şeyi yapmıyor.

Örnek dosyayı ekliyorum.

Yardımcı olursanız sevinirim.

 

[Levent Menteşoğlu]

Commandbuttona aşağıdaki kodu kopyalayın, diğerlerini silin.

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.BackColor = vbYellow
If X < 0 Or X > 132 Or Y < 0 Or Y > 56.25 Then CommandButton1.BackColor = &H808080
End Sub

 

[istikam]

Teşekkür ve devam

Levent Bey teşekkürler.

Cevabınızı yeni okudum. Denedim ilk etepta rengin geriye dönüşünde sorun vardı. X ve Y değerlerini küçültünce düzeldi fakat butonun sınırlarından dışarıya çıkarken mause hızlı hareket ederse macroyu çalıştıracak zaman bulamıyor.
Bunun bir çözümü var mıdır veya farklı yöntem mi kullanılmalıdır?

Kodda değiştirdiğim kısım aşağıdaki gibidir. ( sadece 2 - 130 - 2 - 54.25 değerleri değişti.)

If X < 2 Or X > 130 Or Y < 2 Or Y > 54.25 Then CommandButton1.BackColor = &H808080

Dosyanın düzenlenmiş halini ekliyorum. (mause u yavaş hareket ettiriniz)

Cevabınız için tekrar teşekkür ederim.

Bunu da cevaplar mısınız?

 

[Levent Menteşoğlu]

Bunun engellenmesi için başka bir yöntem varmı bilemiyorum ama ben commandbuttonun altına bir image nesnesi yerleştirerek bir çözüm buldum.

 

[istikam]

Teşekkür ederim

Levent Bey ilginiz için çok teşekkür ederim.

 

[mustafa7691]

&#231;ok ho&#351; olmu&#351; say&#305;n leventm.elinize sa&#287;l&#305;k