Inserting pictures into comments is really useful. What I don't understand is to fix the sizing. I know there is "lock aspect ratio" & "relative to original picture size" checkboxes under the "scale" section of the "size" tab when "editing comments".
There are many comments with pictures in the spreadsheet I'm working on and all are in various zoomed in & out percentages. What I'd like to do is return all of them to their original size when inserted into the comment.
I have the following but it isn't for comments...
Sub resetPictureSize()
Dim mapsheet As Worksheet
Set mapsheet = Sheets("Sheet1")
Dim shp As Shape
For Each shp In mapsheet.Shapes
With shp
If .Name Like "*Picture*" Then
.ScaleHeight 1#, True, msoScaleFromTopLeft
.ScaleWidth 1#, True, msoScaleFromTopLeft
End If
End With
Next shp
End Sub
Can this be adapted for pictures in comments?
Thanks!
Steve
There are many comments with pictures in the spreadsheet I'm working on and all are in various zoomed in & out percentages. What I'd like to do is return all of them to their original size when inserted into the comment.
I have the following but it isn't for comments...
Sub resetPictureSize()
Dim mapsheet As Worksheet
Set mapsheet = Sheets("Sheet1")
Dim shp As Shape
For Each shp In mapsheet.Shapes
With shp
If .Name Like "*Picture*" Then
.ScaleHeight 1#, True, msoScaleFromTopLeft
.ScaleWidth 1#, True, msoScaleFromTopLeft
End If
End With
Next shp
End Sub
Can this be adapted for pictures in comments?
Thanks!
Steve
