Yürüyen Butonlar

[ycimen]

Çalışma sayfamda bir kaç adet buton, spinbutton vs. kullanıyorum. Fakat kullandığım satır sayısı çok olduğu için sayfanın aşağılarına indiğimde bu butonlar yukarıda kalıyor ve kullanımı zorlaştırıyor. Bazı web sayfalarında da gördüğümüz reklam nesneleri gibi sayfanın neresine gidersek gidelim butonlar bizimle gelsin istiyorum. Böyle birşey acaba mümkün mü?

 

[abazya]

http://www.excel.web.tr/showthread.php?t=22090&highlight=kayan+buton

 

[Seyit Tiken]

Ekli dosyayı inceleyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Shapes("Button 1").Top = ActiveCell.Rows.Top
CommandButton1.Top = Target.Rows.Top
Me.SpinButton1.Top = Target.Rows.Top
End Sub