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
dBforums
>
Lower size of image
05-16-07, 19:59
Linear Mode
