I'm trying to use a bit of code to capture a selected range of data to the clipboard, moving to a different workbook where I want to paste the copied data as an 'image'.
I want to shrink the picture by 50%.
The code runs something like:
[namedrange].CopyPicture Appearance:=xlScreen, Format:=xlBitmap
'reduce picture by 50%..
Selection.ShapeRange.ScaleWidth 0.5, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.5, msoFalse, msoScaleFromTopLeft
For some reason, I can't seem to get the full extent of the [namedrange] in the final shrunken image.
(i.e. its seems to 'chop off' beyond a certain number of columns in my [namedrange] )
I've tried various combinations including:
[namedrange].CopyPicture Appearance:=xlPrinter, Format:=xlPicture