Eklentiyi klavye kısayolu ile çalıştırma

[kelkitli]

Değerli Dostlar Selamlar,
Bir eklenti hazırladım. Tüm çalıma kitaplarında klavye kısayolu ile çalıştırmak istiyorum. Nasıl yapmalıyım.

 

[Levent Menteşoğlu]

Eklentinin içine eklentiyi onkey metodu ile klavye kısayoluna atayacak bir kod ilave edebilirsiniz.

 

[kelkitli]

Selamlar Levent Hocam,
Size ait bir uygulama var. Eklentiyi ekliyorum. Uygulayamadım. Dosya ekte

 

[kelkitli]

Dosya normal haliyle çalışıyor. Eklenti olarak kaydettim, aktif hale getirdim, yeni bir excel sayfası açınca çalışmıyor.

 

[Levent Menteşoğlu]

Eklentinin thisworkbook modülündeki tüm prosedürleri silip sadece aşağıdakileri oraya kopyalayın. Daha sonra eklentiyi kaydedin ve dosyayı kapatıp tekrar açın.

Dim nesne(1) As New Class1
Private Sub Workbook_Open()
Set nesne(1).nesne = Excel.Application
aktif
End Sub

 

[kelkitli]

Teşekkürler Levent Hocam.