Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Image
BildScreenshot zu Image Image-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Image in UF Hyperlink zuweisen | Herbers Excel-Forum


Betrifft: Image in UF Hyperlink zuweisen von: Franz W.
Geschrieben am: 14.12.2009 11:35:42

Hallo Fachleute,

mit z. B. der Anweisung:

Shell "explorer https://www.herber.de/forum/archiv/..................htm", vbNormalFocus

läßt sich einem Image in einer UF ein Hyperlink auf eine Website zuweisen.

Ist es auch möglich, einen Hyperlink zu einer Datei auf dem Rechner zu legen, so ähnlich wie:

Shell "C:\Microsoft\Excel\test.xls", vbNormalFocus

???

Danke schonmal und Grüße
Franz

  

Betrifft: AW: Image in UF Hyperlink zuweisen von: Tino
Geschrieben am: 14.12.2009 12:38:20

Hallo,
für Excel Dateien müsste dies einfach über
Workbooks.Open "C:\Microsoft\Excel\test.xls" gehen.

sonst versuche mal dies,
kommt in die Userform oder als Public Declare ... und Public Const ... in ein Modul

Private Declare Function ShellExecute Lib "shell32.dll" Alias _
    "ShellExecuteA" (ByVal hWnd As Long, _
                     ByVal lpOperation As String, _
                     ByVal lpFile As String, _
                     ByVal lpParameters As String, _
                     ByVal lpDirectory As String, _
                     ByVal nshowcmd As Long) As Long

Const SW_MAXIMIZE = 3      ' Maximiert öffnen
Const SW_MINIMIZE = 6      ' Minimiert öffnen
Const SW_NORMAL = 1        ' Normal öffnen

Private Sub Image1_Click()
Dim strPfad As String

strPfad = "C:\Microsoft\Excel\test.xls" 'Pfad zur Datei

Call ShellExecute(0, "open", strPfad, "", "", SW_MAXIMIZE)
End Sub

Gruß Tino


  

Betrifft: AW: Image in UF Hyperlink zuweisen von: Franz W.
Geschrieben am: 14.12.2009 12:49:33

Hallo Tino,

wunderbar, vielen Dank, Workbooks.Open funktioniert tatsächlich bei *.xls - so einfach ..........

Das andere werd ich noch ausprobieren.


Danke und Grüße
Franz


Beiträge aus den Excel-Beispielen zum Thema "Image in UF Hyperlink zuweisen"