I have a code that inserts a picture into a comment as the background. Is it possible to lower the image size by degrading the quality of th picture before inserting it.

This is the code I'm using.

PHP Code:
Sub Macro()

Dim rng As Range
Dim shp 
As Comment


Set rng 
ActiveCell

If ActiveCell.Value "Click to add pic" Then

Dim fn
fn 
Application.GetOpenFilename
If fn False Then
Else
Set shp rng.AddComment("")
shp.Shape.Fill.UserPicture fn
shp
.Shape.Height 322
shp
.Shape.Width 465
End 
If
ActiveCell "QC Pic"

Else
End If

End Sub