Pasting Pictures into a Comment

For more discussion, see https://www.thespreadsheetguru.com/the-code-vault/vba-insert-image-into-cell-comment

@Andrés
See https://sites.google.com/view/myexceltoolbox/Comment for continued discussion.

Hello Woolley,

I forgot to mention, the file is not blocked.

KR

Andrés

Hello Woolley,

Unfortunatelly, I'm not able to see the "new" ribbon after the add-on is installed.
The add-on is also active, but not present somehow. I'm using Office 365.

Any ideas?.

Thanks.

KR
A. López

For more on this subject, see https://excelribbon.tips.net/T013280_Placing_a_Picture_in_a_Comment.html

My Excel Toolbox includes the following function that will add a background image to a comment:
=ImageInComment(ImageFile,[Target],[ScaleFactor],[RotateAngle],[NoAuthor])
See https://sites.google.com/view/MyExcelToolbox/

Hello There,

Here is the code that I use, I'm not able to check if there is a picture in the clipboard yet. Maybe someone can help me. BTY, the code is not mine unfortunatelly, credits to the author:

Option Explicit
Sub PictureExport()
Dim TempChart As String, Picture2Export As String
Dim PicWidth As Long, PicHeight As Long
Dim ActSheet As String

ActSheet = ActiveSheet.Name

ActiveSheet.Paste
Selection.Name = "PrintScreen"
Picture2Export = Selection.Name


'Store the picture's height and width in a variable
With Selection
PicHeight = .ShapeRange.Height
PicWidth = .ShapeRange.Width
End With

'Add a temporary chart in sheet1
Charts.Add
ActiveChart.Location Where:=xlLocationAsObject, Name:=ActSheet
Selection.Border.LineStyle = 0
TempChart = Selection.Name & " " & Split(ActiveChart.Name, " ")(2)

With ActiveSheet
'Change the dimensions of the chart to suit your need
With .Shapes(TempChart)
.Width = PicWidth
.Height = PicHeight
End With

'Copy the picture
.Shapes(Picture2Export).Copy

'Paste the picture in the chart
With ActiveChart
.ChartArea.Select
.Paste
End With

'Finally export the chart
.ChartObjects(1).Chart.Export Filename:=ThisWorkbook.Path & "\tmp.jpg", FilterName:="jpg"
.Shapes(TempChart).Cut
End With

ActiveCell.AddComment
ActiveCell.Comment.Shape.Fill.UserPicture ThisWorkbook.Path & "\tmp.jpg"
ActiveCell.Comment.Shape.Width = PicWidth
ActiveCell.Comment.Shape.Height = PicHeight
ActiveSheet.Shapes("PrintScreen").Delete
Kill ThisWorkbook.Path & "\tmp.jpg"
Application.ScreenUpdating = True
End Sub

@ J. Woolley

Or you could put this formula in a worksheet cell:

Does not work fine (comma):

=ImageInComment("D:/Test/Excel/0-Bilder/Erdbeere-10.jpg",H7)

Works fine (semicolon):

=ImageInComment("D:/Test/Excel/0-Bilder/Erdbeere-10.jpg";H7)

@ J. Woolley

Thank you very much.

Works fine:

Sub Image_In_Comment()
ImageInComment "D:/Test/Excel/0-Bilder/Erdbeere-10.jpg", Range("H7")
End Sub

Does not work fine (Compile error: Variable not defined)

Sub Image_In_Comment()
Result = ImageInComment("D:/Test/Excel/0-Bilder/Erdbeere-10.jpg", Range("H7")) '** Compile error: Variable not defined
End Sub

What am I doing wrong?

Works fine in the Immediate Window:

Result = ImageInComment("D:/Test/Excel/0-Bilder/Erdbeere-10.jpg", Range("H7"))

@Kurt Müller
As described in my earlier comments, ImageInComment is a Function, not a Sub, so it can be used in a cell formula. If you want to use a Function in VBA instead of a cell formula and ignore the returned result, your example with a Call statement will work. The Application.Evaluate shortcut [H7] is OK, but Range("H7") would be better. Here are two other ways to use the Function in VBA:
ImageInComment "D:/Test/Excel/0-Bilder/Erdbeere-10.jpg", Range("H7")
result = ImageInComment("D:/Test/Excel/0-Bilder/Erdbeere-10.jpg", Range("H7"))
Or you could put this formula in a worksheet cell:
=ImageInComment("D:/Test/Excel/0-Bilder/Erdbeere-10.jpg",H7)

@ J. Woolley

I found the solution now:

Sub ImageInComment()
Call ImageInComment("D:/Test/Excel/0-Bilder/Erdbeere-10.jpg", [H7])
End Sub

I had to enter the above macro in a modul by myself.

@ J. Woolley

I can find Register ImageInComment function (Private Sub ImageInComment_Register()), Image in Target's unthreaded Comment (Public Function ImageInComment(ImageFile, [Target}, [ScaleFactor], [RotateAngle], [NoAuthor])) but I can not find a "Sub ImageInComment".

What am I probably doing wrong?

For similar discussion, including the ImageInComment(FilePath,[Target]) function, see:
https://excelribbon.tips.net/T013280_Placing_a_Picture_in_a_Comment.html#comment-form-hd

If a picture is pasted into a comment, the picture takes the size of the comment shape. After that the picture is already distorted.

If distortion of the picture shall be prevented, the following procedure is necessary:

- After choosing the pic it is necessary to calculate the scale of the picture
- With the scale of the picture the size of the comment shape has to be changed to the scale of the picture
- If the picture is pasted into the comment shape - having the same scale as the picture - then the picture is not distorted
- Just now the aspect ratio of the comment shape has to be locked. It is not possible to lock the aspect ratio of the picture pasted into the comment shape

Sub insert_userpicture_in_comments()

'** Dimensionierung der Variablen
Dim rngZelle As Range
Dim strFilename As Variant
Dim strFilter As String
Dim ScaleValue As Single
Dim ScaleValue2 As Single
Dim objPic As IPictureDisp
Dim Source As String
Dim i As Integer

If ActiveSheet.Comments.Count = 0 Then
MsgBox "No comments in entire sheet"
Exit Sub
End If

'Dateiauswahl filtern
strFilter = "JPG Files (*.jpg), *.jpg" _
& ", GIF Files (*.gif), *.gif" _
& ", Bitmaps (*.bmp), *.bmp" _
& ", WMF Files (*.wmf), *.wmf"

' Dialogfenster zur Auswahl eines Bildes öffnen
strFilename = Application.GetOpenFilename(strFilter)
DoEvents

' Wenn kein Bild ausgewählt wurde, Prozedur beenden
If strFilename = False Then GoTo LabelA

Source = (CStr(strFilename))
DoEvents

' Set objPic = LoadPicture(Bild)
Set objPic = LoadPicture(Source)
DoEvents

With objPic
ScaleValue = .Width / .Height
End With

If MsgBox(ScaleValue, vbOKCancel) = vbCancel Then GoTo LabelA

Application.CutCopyMode = False
DoEvents

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

'** Alle markierten rngZellen durchlaufen
For Each rngZelle In Selection.Cells
With rngZelle
If Not .Comment Is Nothing Then
'Insert The Image and Resize
With .Comment.Shape
.LockAspectRatio = msoFalse
.Width = 150
' .Width = ScaleValue * .Height
.Height = .Width / ScaleValue
.Fill.UserPicture strFilename
DoEvents
.LockAspectRatio = msoTrue

ScaleValue2 = .Width / .Height
i = i + 1
Debug.Print i; rngZelle.Address; ScaleValue; ScaleValue2

End With
End If
End With
Next rngZelle

LabelA:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

@Ronmio
For example, to make the height of the comment shape 100 pixels, change the code after Else as follows:

ActiveCell.Comment.Shape.Fill.UserPicture PicChoice
ActiveCell.Comment.Shape.LockAspectRatio = True
ActiveCell.Comment.Shape.Height = 100

When you use VBA to change the comment shape's height, its width will also change because aspect ratio is locked. In this case, the JPG image resizes to match the comment's shape because it was inserted as a background (Fill).

Notice you can manually change the comment shape's height or width independently by dragging a side-handle, but dragging a corner-handle will change both height and width to maintain aspect ratio.

What might the VBA code that sizes the JPG look like?

It never occurred to me that an image could be pasted into a comment, or why I would want to, but I still found this fascinating. Thanks!