You need the image path and file name for the .Comment image. I don't know a way to get that directly from the Image1 control. But when you load an image in the Image1 control, you can store the Path and Filename in the Image1.Tag property
Me.Image1.Picture = LoadPicture("C:\Pictures\Sample Pictures\Sunset.jpg")
Me.Image1.Tag = "C:\Pictures\Sample Pictures\Sunset.jpg"
Then later, use that .Tag property to retrieve the path and file name for the comment image.
With Range("C" & rw)
If .Comment Is Nothing Then .AddComment
With .Comment
.Visible = True
.Shape.Fill.UserPicture Me.Image1.Tag
'Image size(100) and aspect ratio
.Shape.Width = 100 * Me.Image1.Width / Me.Image1.Height
.Shape.Height = 100 * Me.Image1.Height / Me.Image1.Width
End With
End With
Bookmarks