Hallo Excelgötter,
ich hatte diesbezüglich schon mal einen Thread aufgemacht. Leider ist der mittlerweile zu, zumindest kann ich dort nix mehr dazu schreiben.
Ich möchte ein Makro erstellen, welches Automatisch Bilder aus einem Ordner als Kommentar an bestimmte Zeilen anhängt. Mein Problem ist,
dass Debug.Print StrName & "!" mir die Bilder als solches anzeigt, aber in der Tabelle keine Bilder oder Kommentare auftauchen.
Vielleicht hat jemand eine Idee woran es liegen könnte. Es ist auch überhaupt keine eile geboten, da ich mich mit dem Thema eh erst in KW 23
weiter auseinander setzen werde.
Dim xFDObject As FileDialog
Dim xStrPath, xStrPicPath As String
Dim xRgName, xRgInser, xRg, xRgI As Range
Dim xFNum As Integer
'Ordner für Bilder auswählen
Set xFDObject = Application.FileDialog(msoFileDialogFolderPicker)
With xFDObject
.Title = "Geben Sie den Ordner an in dem die Bilder hinterlegt sind:"
.InitialFileName = Application.ActiveWorkbook.Path
.Show
.AllowMultiSelect = False
End With
On Error Resume Next
xStrPath = ""
xStrPath = xFDObject.SelectedItems.Item(1)
If xStrPath = "" Then
Exit Sub
End If
'Zellen mit dem Namen für die Bilder auswählen
Set xRgName = Application.InputBox("Bitte die Zellen auswählen die die Bezeichnung haben:", "Kutools for Excel", , , , , , 8)
If xRgName Is Nothing Then
MsgBox "Keine Übereinstimmung der Bezeichnung ", vbInformation, "Kutools for Excel"
Exit Sub
End If
'Bilder in Kommentar umwandeln
With rngZelle
StrName = xStrPath & xStrPicPath & "\" & .Value & ".png"
Debug.Print StrName & "!"
If Dir(StrName) > "" Then
.ClearComments
.AddComment .Offset(0, 1).Value
With .Comment.Shape
.Fill.UserPicture StrName
.Fill.Transparency = 0.5
.TextFrame.Characters.Font.Size = 12
.TextFrame.Characters.Font.Bold = True
.TextFrame.Characters.Font.Color = RGB(0, 0, 255)
End With
Else
MsgBox StrName & " wurde nicht gefunden!", vbCritical
End If
End With
End Sub