Office: Bild in Zeile als Hyperlink

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

 

Hallo,

um im aktiven Arbeitsblatt in der Zelle mit Zeilennummer "lFreie" und Spaltennummer 13 (=Spalte M) einen Hyperlink auf die Datei, deren Pfad+Name sich in "imgImage1.Tag" befindet, einzufügen, musst Du folgenden VBA-Code einfügen:

Code:

'...
ActiveSheet.Hyperlinks.Add ActiveSheet.Cells(lFreie,13), imgImage1.Tag
'...

oder etwas kürzer:

Code:

'...
With ActiveSheet
  .Hyperlinks.Add .Cells(lFreie,13), imgImage1.Tag
End With
'...

 

Danke Geht

jetz hab ich noch keine fein korektur

vieleich kannst du dabei helfen

1 kann mann als stat lange Hyperlinktext c:\Igelwo\igalwohin.Jpg Einfach mit Text "Klick Mich" kurzen
2) wenn Kein Bild eingefügt ist Soll in zeile 13 schreiben "Kein Bild"

Danke Noch Mal

 

Hallo,

ausgehend von Deinen Vorgaben, müssten Deine 2 Punkte so wie im folgenden Code-Fragment umgesetzt werden:

Code:

  '...
  With ActiveSheet
    If Trim(imgImage1.Tag) = "" Then
      'ad 2) Wenn kein Bild eingefügt werden soll (-> imgImage1.Tag ist leer):
      '      dann soll in Spalte 13 geschrieben werden: "Kein Bild"
      .Cells(lfreie, 13).Value = "Kein Bild"
    Else
      'ad 1) Statt des eigentlichen Hyperlinktextes wird als Anzeigetext "Klick mich" gespeichert:
      '      Dabei bedeuten:
      '        Anchor:        Zelle, in der der Hyperlink gespeichert werden soll
      '        Address:       der Hyperlink, der gespeichert wird
      '        ScreenTip:     temporärer Anzeigetext, wenn man mit der Maus darüberfährt
      '        TextToDisplay: Text, der statt des Hyperlinks angezeigt wird.
      .Hyperlinks.Add Anchor:=.Cells(lfreie, 13), _
                      Address:=imgImage1.Tag, _
                      ScreenTip:=imgImage1.Tag, _
                      TextToDisplay:="Klick mich"
    End If
  End With
  '....

Ich habe reichlich Kommentar beigefügt, um die einzelnen Teile zu erklären. Aber es gäbe ohnehin auch eine Microsoft-Hilfe - aus dieser habe ich mir auch die vorgenannten Anweisungsinformationen besorgt (Cursor auf das zu suchende Statement setzen, F1-Taste drücken, die Hilfeinformationen erscheinen.)

 

Exl121150
Danke
Die Frage 1 Habich Schön gesten Gelöst mit

Code:

If imgImage1.Tag <> "" Then
         With ActiveSheet
            .Hyperlinks.Add .Cells(lFreie, 14), imgImage1.Tag, _
             TextToDisplay:="Klick Mich"
        End With
      End If

2 Wollte ich Heute Machen Aber Trotztem Danke Noch Mal