Bild in Kommentar per VBA

Hallo VBAler
ich bastele gerade an einem Makro, dass mir in einem bestimmten range für jede Zelle ein Kommentar in Form eines Bildes einfügt. Dabei soll jede Zelle ein anderes Bild im Kommentar enthalten.
Ich erhalte die Fehlermeldung "Nicht genügend Speicher", obwohl die Bilder nur wenige KB groß sind. Pfad ist fest, Bildname variable und steht in Zelle a der Spalte A.
Zusätzlich benötige ich noch: Wenn die entsprechende Bilddatei nicht vorhanden ist, soll der entsprechende Fehler abgefangen werden bzw. das Kommentarfeld einfach leer sein.
Schon mal danke,Chris
Dim a As Integer, cmt As Comment
With Sheets(1)
For a = 12 To 13
pfad = "C:\Users\Mustermann\Desktop\" & .Cells(a, 1).Value & ".png"
With .Cells(a, 2)
.ClearComments
.AddComment
.Comment.Visible = False
.Comment.Shape.DrawingObject.AutoSize = True
.Comment.Shape.TextFrame.Characters.Font.Bold = True
.Comment.Shape.TextFrame.Characters.Font.Size = 12
.Comment.Shape.Fill.UserPicture pfad
.Comment.Shape.Width = 450
.Comment.Shape.Height = 550
End With
Next
End With
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Chris,
die Prüfung, ob das jeweilige Bild vorhanden ist ist kein Problem.
In deinem geposteten Makro fügst du ja nur 2 Kommentare mit Bild ein.
Wenn du aber wesentlich mehr Bilder in Kommentare einfügts gibt es eine Grenze für die Anzahl der Kommentare oder auch Shapes oder irgendwelche andere Grenzen innerhalb von Excel, die ich aber nicht kenne.
Wenn viele verschieden Bilder in die Kommentare lädst, dann schlägt das auf die Dateigröße durch.
Gruß
Franz

Sub MakeCommentWithPicture()
Dim a As Integer, cmt As Comment, Pfad
With Sheets(1)
For a = 12 To 35
Pfad = "C:\Users\Mustermann\Desktop\" & .Cells(a, 1).Value & ".png"
Pfad = "D:\Test\Bilder\" & .Cells(a, 1).Value & ".png"
With .Cells(a, 2)
.ClearComments
.AddComment
.Comment.Visible = False
If Dir(Pfad)  "" Then
.Comment.Shape.DrawingObject.AutoSize = True
With .Comment.Shape.TextFrame.Characters
.Font.Bold = True
.Font.Size = 12
End With
.Comment.Shape.Fill.UserPicture Pfad
.Comment.Shape.Width = 450
.Comment.Shape.Height = 550
Else
With .Comment.Shape.TextFrame.Characters
.Font.Bold = True
.Font.Size = 12
.Text = "kein Bild"
End With
End If
End With
Next
End With
End Sub

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bild in Kommentar per VBA

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread