Bilder in Kommentar einfügen
02.08.2021 09:36:35
oraculix
Ich habe ein Macro gefunden wo man Bilder aus einem beliebigen Verzeichnis einzeln in den Kommentar einfügen kann.
Das Problem ist das bei über 3000 Bildern wird das sehr mühsam.
In Spalte B Stehen Filmtitel jetzt würde ich gerne per VBA alle Bilder in den Kommentar einfügen automatisch ohne jedes Bild einzeln einzufügen.
Das Verzeichnis wo die Bilder liegen ist D:\EMDB\HTML\covers
Ich bräuchte einen VBA Code der die Spalte B mit den Filmtiteln mit dem Namen der Titel des Verzeichnisses abgleicht .
Wenn der Titel übereinstimmt dann sollte das Bild in den Kommentar in den dazugehörigen Titel eingefügt werden in Spalte B und das ganze in einer schleife Zeile für Zeile abarbeitet.
Beispielmappe: Einfach Zelle anklicken und Bild einfügen hier kann man sehen das es gut funktioniert
https://www.herber.de/bbs/user/147413.xlsm
Danke
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim addRange As Range
Dim myCom As Object
Dim insPic As String
'Fügt im bezeichneten Bereich in die ausgewählte Zelle einen Kommtar ein
'und fügt ein zu definierendes Bild als Hintergrund ein
'Bezug bitte anpassen
Set addRange = Range("B2:B50000")
If Intersect(Target, addRange) Is Nothing Then
'Ausstieg wenn mehrere Zellen
'markiert sind
Exit Sub
End If
If Target.Comment Is Nothing Then
Target.AddComment
With Target.Comment
.Text Text:=""
End With
insPic = Application.GetOpenFilename("Bilder (*.jpg; *.gif; *.bmp), *.txt, *.gif, *.bmp")
If insPic = "" Then
MsgBox "Keine Datei ausgewählt. Der Kommentar wird wieder gelöscht"
ActiveCell.Comment.Delete
End If
Set myCom = ActiveCell.Comment.Shape
With myCom
.Fill.UserPicture insPic
.Width = 200
.Height = 300
End With
End If
End Sub
Oraculix