< návrat zpět
MS Excel
Téma: Kód pro otevírání obrázků z http bez IE 
Zaslal/a Marekkoc 23.2.2015 8:59
Zdravím všechny, mám tady funkční kód na stahování a otevírání obrázků z adresy http prostřednictvím VBA v excelu.
Obrázek se stáhne a otevře prostřednictvím IE což mě nevyhovuje, je možnost využít nějaký objekt ve vba k tomu, aby se mi obrázek přímo otevřel ve výchozím programu např. prohlížeč fotografií tj. bez použití IE.
Děkuju
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Path As String, s As String
'první část odkazu
Path = "http://1.7.13.4:6464/PumpaServer/get_doc.pl?doc_id="
If Not Intersect(Target, Range("J6:J100")) Is Nothing And Target.Count = 1 Then
If IsNumeric(Target) And Len(Target) > 0 Then
'druhá část odkazu
s = Left(Target, Len(Target) - 2)
'otevrit odkaz
ActiveWorkbook.FollowHyperlink Path & s
End If
End If
End Sub
Uzamčeno - nelze přidávat nové příspěvky.
Hav-Ran(23.2.2015 13:02)#023817 
Skús si upraviť spustenie obrázku napr. v Irfan-Viev. Vyber oblasť buniek v excelovskom súbore a spusti procedúru. Samozrejme si uprav cestu do svojho prehliadača, ktorý chceš použiť. Kód zverejnil Petr Pecháček na fóre Pandora v roku 2005
Sub OblastDoIrfanView()
' od PP 16.12.2005
Selection.CopyPicture
Shell "d:\nastroje\irfanview\i_view32.exe", 1
DoEvents
End Sub
citovatMarekkoc(24.2.2015 11:43)#023830 
Děkuju za pomoc. Výsledný kód je:
Toto:
ActiveWorkbook.FollowHyperlink Path & s
nahradit:
Shell "RunDLL32.exe C:\Windows\System32\Shimgvw.dll,ImageView_Fullscreen " & Path & s
Pěkný den
citovat
RSS nejnovější články