Results 1 to 2 of 2
  1. #1
    2 Star Lounger
    Join Date
    Jan 2001
    Location
    Chicago, Illinois, USA
    Posts
    187
    Thanks
    6
    Thanked 0 Times in 0 Posts

    Printing Images Imbedded into Comments

    Is there a better way to print graphics that are within a comment (edit comment\format comment\color and lines\fill color\fill effects\picture) other than using Windows snipping tool? \Page Setup\Sheet\Print\Comments\End of Sheet (or As Displayed On Sheet) doesn't work.
    Last edited by Zeno; 2013-02-13 at 18:17.

  2. #2
    Gold Lounger Maudibe's Avatar
    Join Date
    Aug 2010
    Location
    Pa, USA
    Posts
    2,640
    Thanks
    115
    Thanked 651 Times in 593 Posts

    Printing graphics in a comment

    Try this:

    Code:
    Sub PrintGraphics()
         Range("H6").Comment.Visible = True
         Range("H6").Comment.Shape.CopyPicture
         Worksheets(1).PasteSpecial
         Selection.ShapeRange.ScaleWidth 3, msoTrue, msoScaleFromTopLeft  'CHANGE 3 TO DESIRED MULTIPLE OF ORIGINAL
         Selection.ShapeRange.ScaleHeight 3, msoTrue, msoScaleFromTopLeft   'CHANGE 3 TO DESIRED MULTIPLE OF ORIGINAL
         Selection.ShapeRange.Left = 0
         Selection.ShapeRange.Top = 0
         Range("H6").Comment.Visible = False
         ActiveSheet.PrintOut
    End Sub
    GraphicComment.jpg

    To adjust the size, change the 3 (3x original size) to your preference
    Attached Files Attached Files
    Last edited by Maudibe; 2013-02-14 at 17:37.

  3. The Following User Says Thank You to Maudibe For This Useful Post:

    Zeno (2013-02-14)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •