Bild in Zeile als Hyperlink

[valeripf]

Hi

Kann mir Jemand Helfen

Ich Habe Ein Code Es funktionirt aber nur

Frage: Ich Will In Tabelle Zeile stat Bild ein Hyperlink zum dieser Bild (z.B: Cover.JPG)

code

' ein Bild wurde ins Image geladen und Name steht in der Tag-Eigenschaft
       If imgImage1.Tag <> "" Then
         ' ausgewähltes Bild ins Tabellenbltt einfügen
         .Pictures.Insert (imgImage1.Tag)
         ' bezieht sich auf das eingefügte Bilde
         With .Pictures(.Pictures.Count)
           ' Position Oberkante = Oberkant erste leere Zeile
           .Top = .Parent.Rows(lFreie).Top
           ' Position links = Spalte 13 Linke Kante
           .Left = .Parent.Columns(13).Left
           .Height = .Parent.Cells(lFreie, 13).Height
         End With
      End If

Function GetFile() As String
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Add "Images", "*.gif; *.jpg; *.jpeg"
        .ButtonName = "Bild laden"
        .Title = "Bild auswählen"
        .Show
        If .SelectedItems.Count = 0 Then
            GetFile = ""
        Else
            GetFile = .SelectedItems(1)
        End If
    End With
End Function

'Cover
Private Sub imgImage1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
   ' Bild auswählen und Pfad und Bildname in tag schreiben
   imgImage1.Tag = GetFile
   ' Bild ins Image einfügen
   imgImage1.Picture = LoadPicture(imgImage1.Tag)
   ' UserForm aktialisieren damit Bild angezeigt wird (kann einen Augenblick dauern)
   NeuFormular.Repaint
End Sub

DANKE

 

[Yaslaw]

Der erste Teil deines Codes - wann wird denn der ausgeführt?

 

[valeripf]

wenn mann auf inhalt (Rahme) drauf drückt


ich habe complette code reingesetz nur
ob jemand vieleich braucht oder sucht

 

[Yaslaw]

Sorry, ich versteh nicht was du hast und was du haben willst.

 

[valeripf]

ich will
wenn Userform von Bild in Tabellenzeile Übeträgt als stat Bild die Name von Bild als Hyperlink
z.B

Meinebild.JPG

und wenn mann in zeile z.b A1 auf dem Meinebild.JPG drauf druckt soll dann ensterechcende bild aufgehen
alle bilder sind auf eine Festplatte

 

[Yaslaw]

Aha, ein Userform ist mit beteiligt. Interessant
Dann ist das da oben Code, welcher hinter dem Userform steckt?

Sorry, ich gebs auf. Hab keine Lust Detektiv zu spielen um herauszufinden was da eigentlich ist.