Fonksiyon tuşlarına makro atama...

[harziyan]

Excelde konu ile ilgili örnekler mevcut ama aynı kodlar wordde çalışmıyor. Örneğin aşağıdaki kod, wordde çalışmadı. Acaba wordde de fonksiyon tuşlarına makro atanabiliyor mu?

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode > 111 And KeyCode < 124 Then
    MsgBox "F" & KeyCode - 111 & " Tuşuna Basıldı"
End If
End Sub

 

[Muzaffer Ali]

Verdiğiniz kodlar form açıkken fonksiyon tuşları yani F1,...F12 arasındaki tuşlara basıldığında çalışır. Bu konuda word yada excel arasında fark yok ikisinde de çalışır.

 

[harziyan]

Hımm, peki form kullanmadan foknsiyon tuşları kullanılabilir mi? Ya da aşağıdaki koda benzer bir çözüm var mı? (Bu kod "onkey" yazan yerde hata veriyor!)

Sub auto_open()
Application.OnKey "{F11}", "test"
End Sub
Sub test()
    Application.PrintOut Range:=wdPrintCurrentPage
End Sub

 

[Muzaffer Ali]

Kodda sorun yok. ne gibi bir hata mesajı veriyor?

Sub auto_open()
Application.OnKey "{F11}", "test"
End Sub

Bu kod çalıştırıldıktan sonra F11 tuşuna bastığınızda test adlı makro çalışır. yani test adlı makrooya F11 tuşu kısayol olarak atanmış olur.

 

[harziyan]

Hocam Vallahi çok garip, bu kodlar o kadar uğraşmama rağmen öğleden önce çalışmamıştı, "Onkey" yazan yerde hata vermişti. Şimdi siz kodda sorun yok deyince bir daha denedim bu sefer çalıştı.
Sağolun yinde de, yoksa pes etmiştim...:tongue: