AW: Per Hand und einzeln kann ein normaler ...
06.08.2021 06:19:29
oraculix
Danke für Deine Mühe!
Ich überlege ob ich nicht statt Kommentare besser ein Bild (Aktiv X Steuerelement) verwenden sollte.
Nur müsste ich den Code dann umschreiben mit Image1
Könntest Du mir den Code so umschreiben das ich ein Image1 verwenden kann statt Kommentare?
Danke
Gruß
Oraculix
Public Sub InsertPictures()
Const FOLDER_PATH As String = "D:\EMDB\HTML\ExcelCovers\"
Dim strFilename As String
Dim objCell As Range
Dim objComment As Comment
For Each objCell In Range(Cells(2, 2), Cells(Rows.Count, 2).End(xlUp))
If objCell.Comment Is Nothing Then
Set objComment = objCell.AddComment
Else
Set objComment = objCell.Comment
End If
Call objComment.Text(Text:="", Start:=1)
strFilename = Dir$(FOLDER_PATH & objCell.Text & ".*")
If strFilename vbNullString Then
With objComment.Shape
Call .Fill.UserPicture(PictureFile:=FOLDER_PATH & strFilename)
.Width = 260
.Height = 323
End With
End If
Next
Set objComment = Nothing
End Sub