hyperlink aktive etmek

[bravo64]

merhaba arkadaşlar,
listboxa tıkladığımda oluşan bir hyperlink yaratma kodum var.(zaten forumdan aldım)..ancak listboxa tıkladığımda hyperlink aktif olsun ve bağlantı dosyası açılsın istiyorum..yani userformu kapatıp köprüyü tıklamak yerine ,listboxu tıkladığımda aktif hale geçebilirmi??
iyi haftalar..

 

[Levent Menteşoğlu]

Aşağıdaki linkte bulunan çalışmamda listboxa çift tıklayarak dosya açma ile ilgili kodlamayı bulabilirsiniz.

http://www.excel.web.tr/viewtopic.php?t=13292

 

[bravo64]

hyperlink çalıştırmak

sayın leventm çok güzel bir çalışma elinize sağlık..
şunu sormak istiyorum izninizle,benim açılacak dosyalarım pdf..nasıl bir kod ilave edebilirim acaba?
teşekkürlerimle..

 

[Levent Menteşoğlu]

Bu durumda aşağıdaki gibi deneyin. Acrobat Reader programının yolunu ben kendi pc me göre yazdım. Yolu kendinize göre değiştirin. .exe den sonra bir boşluk var bunada dikkat edin.

[vb:1:e5331a6e7f]Shell "C:\Program Files\Adobe\Acrobat 6.0 CE\Reader\AcroRd32.exe " & "" & listbox1 , vbNormalFocus
[/vb:1:e5331a6e7f]

 

[bravo64]

hyperlink çalıştırmak

sevgili leventm,
kod çalışıyor ama "There was an error opening this document.this file does not exist"hatası veriyor..genelgeler adında bir klasörüm var ve desktopta bulunuyor..
şöyle yazmıştım..Private Sub ListBox1_Click()
Shell "C:\Program Files\Adobe\Acrobat 5.0 CE\Reader\AcroRd32.exe " & "" & ListBox1, vbNormalFocus
neden olabilir...
teşekkür ederim ilginize..

 

[Levent Menteşoğlu]

Dosya isimleri listboxta nasıl görünüyor, birde dosyaların yolunu yazarmısınız. Koddaki listbox1 yazan yere dosyanın yolunuda belirtmeniz gerekir. Örneğin;

Shell "C:\Program Files\Adobe\Acrobat 5.0 CE\Reader\AcroRd32.exe " & "c:\genelgeler\" & ListBox1 & ".pdf", vbNormalFocus

 

[bravo64]

SEVGİLİ LEVENTM SİZE MİNNETTARIM..SÜPER OLDU..ÇOK TEŞEKKÜR EDERİM..