wydajność, a większa ilośc przycisków

Mam około 60 przycisków zrobionych na zasadzie CommandButton1 visible=true oraz w tym samym miejscu umieszczony Image1 visible=false, po nacisnieciu na CommandButton1 pojawia się image1, a chowa się CommandButton1. Czyli zasada podobna do pola wyboru z ta róznicą, że w image1 mogę umieścić dowolną grafikę.

Problem polega na tym że gdy mam tych CommandButton'ów i Image'ów 60 sztuk czyli łącznie 120 to przewijanie oknem arkusza jest irytująco wolne w momencie gdy te przyciski mają się wyświetlić na ekranie.
Problem z wydajnościa pojawią się tez gdy umieszczę wiekszą ilość CheckBox'ów.

Czy da się to jakoś usprawnić i zwiększyć wydajność żeby tak nie przymulało?

Czy da się jakoś ulepszyć/usprawnić makro?


Private Sub CommandButton51_Click()
CommandButton51.Visible = False
Image51.Visible = True
End Sub
Private Sub Image51_Click()
Image51.Visible = False
CommandButton51.Visible = True
End Sub
Private Sub CommandButton52_Click()
CommandButton52.Visible = False
Image52.Visible = True
End Sub
Private Sub Image52_Click()
Image52.Visible = False
CommandButton52.Visible = True
End Sub
Private Sub CommandButton53_Click()
CommandButton53.Visible = False
Image53.Visible = True
End Sub
Private Sub Image53_Click()
Image53.Visible = False
CommandButton53.Visible = True
End Sub
Private Sub CommandButton54_Click()
CommandButton54.Visible = False
Image54.Visible = True
End Sub
Private Sub Image54_Click()
Image54.Visible = False
CommandButton54.Visible = True
End Sub
Private Sub CommandButton55_Click()
CommandButton55.Visible = False
Image55.Visible = True
End Sub
Private Sub Image55_Click()
Image55.Visible = False
CommandButton55.Visible = True
End Sub
Private Sub CommandButton56_Click()
CommandButton56.Visible = False
Image56.Visible = True
End Sub
Private Sub Image56_Click()
Image56.Visible = False
CommandButton56.Visible = True
End Sub

Excel 2003

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

katkaras.opx.pl