Printing Images Imbedded into Comments

Topic

New Reply

Is there a better way to print graphics that are within a comment (edit commentformat commentcolor and linesfill colorfill effectspicture) other than using Windows snipping tool? Page SetupSheetPrintCommentsEnd of Sheet (or As Displayed On Sheet) doesn’t work.

Reply | Quote

Replies

Try this:

Code:

Sub PrintGraphics()
     Range(“H6”).Comment.Visible = True
     Range(“H6″).Comment.Shape.CopyPicture
     Worksheets(1).PasteSpecial
     Selection.ShapeRange.ScaleWidth 3, msoTrue, msoScaleFromTopLeft [COLOR=”#008000”] ‘CHANGE 3 TO DESIRED MULTIPLE OF ORIGINAL[/COLOR]
     Selection.ShapeRange.ScaleHeight 3, msoTrue, msoScaleFromTopLeft   [COLOR=”#008000″]’CHANGE 3 TO DESIRED MULTIPLE OF ORIGINAL[/COLOR]
     Selection.ShapeRange.Left = 0
     Selection.ShapeRange.Top = 0
     Range(“H6”).Comment.Visible = False
     ActiveSheet.PrintOut
End Sub

33141-GraphicComment

To adjust the size, change the 3 (3x original size) to your preference

Reply | Quote