Jak zobrazit webovou stránku z MS Office aplikace

11. 8. 2014, Vladimír Klaus, přečteno 4840x

MS Access
MS Excel
MS Office

Při programování makra, formuláře či menu narazíte občas na potřebu zobrazit nějakou stránku. MS Word ani MS Excel pro to žádnou funkci nemají, a proto si ji musíte napsat. Naštěstí to není nic složitého.

Sub ZobrazMujWeb()
    Dim urlData As String
    Set Browser = CreateObject("InternetExplorer.Application")
    urlData = "http://www.audrey.cz"
    Browser.Navigate (urlData)
    Browser.Visible = True
End Sub

U aplikace MS Access je situace jednodušší, protože na to má přímo funkci. Nejen, že je to takhle jednodušší, ale ještě se při tom použije výchozí prohlížeč, takže se nemusíte spoléhat na IE (i když v systému jeho jádro vždy bude i když si prohlížeč odinstalujete).

Application.FollowHyperlink("http://www.audrey.cz")

A to není vše. Jako parametr můžete dát i normální lokální soubor, který se otevře rovněž v příslušné výchozí aplikaci.

Application.FollowHyperlink("c:\obrazek.jpg")