Forma kısayol atama

[pisisler]

Mümkün olduğunu pek zannetmiyorum ama yine de sorayım; makroda tanımlı bir userform'u atanacak bir kısayol tuşu ile açmak mümkün mü?

Saçma mı oldu?

 

[dEdE]

Merhaba,
2003 versiyonda şöyle yapılabilir.

Sub FormAc()
    UserForm1.Show
End Sub

Böyle bir makromuz olduğunu varsayalım.
Menüden, Araçlar/Makro/Makrolar.../Seçenekler
İstediğiniz kısayolu atayabilirsiniz.
2007 versiyonda menüleri bilmiyorum. Biraz araştırınca bulunur.

Ayrıca yukarıdaki gibi bir FormAc makromuz var ise;ThisWorkbook kod kısmına aşağıdaki kodu yazarak ta kısayol atayabiliriz.
Ben Ctrl+W atadım, istediğiniz harfle değiştirebilirsiniz.

Private Sub Workbook_Open()
Application.MacroOptions Macro:="FormAc", ShortcutKey:="W"
End Sub

 

[pisisler]

Teşekkür ederim, çok faydalı oldu.