link ekleme penceresi

[Daerohn]

Herkese kolay gelsin,

Benim ufak bir sorunum var, sayfa içindeki bir check box'a tıklandığında "Excel'in standart köprü ekleme penceresini görüntülemek istiyorum. Şu an application.getopenfilename işlevini kullanarak istenilen dosyaların seçilmesini ve bu dosya adresini sayfadaki bir şekle bağlamasını sağlıyorum ancak bu pencere ile dizin seçme yapılamıyor. Bana dizin seçimine de izin veren standart köprü ekleme penceresi gibi bir pencere gerekiyor. en baştan user form tasarlamak istemiyorum.

şimdiden teşekkür ederim.

 

[halit3]

köprü penceresi nesnesine ait kod

Private Sub CheckBox1_Click()
Application.Dialogs(596).Show
End Sub

 

[Daerohn]

çok teşekkür ederim. bu excel yardımında arayıp ta blamadığım bir komuttu.

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak klavye kısayol tuş kodunuda (CTRL+ALT+K) kullanabilirsiniz.

Option Explicit
 
Sub KÖPRÜ_PENCERESİ()
    SendKeys ("^%{k}"), True
End Sub

 

[halit3]

çok teşekkür ederim. bu excel yardımında arayıp ta blamadığım bir komuttu.

iyi çalışmalar

 

[Daerohn]

bir soru daha, bu pencerede kullanıcı tarafından seçilen girdiyi nasıl okutabiliriz. sadece show, application ve parent özelliklerine sahip. value gibi bir geri dönüş değeri yok. yardımcı olabilirseniz sevinirim