在粘貼到新工作表之前調整剪貼板中單元格範圍的屏幕圖像

Question

我有一種情況，即複製一系列單元格，選擇並將它們複製爲屏幕圖像，並將它們粘貼到新工作表中和位置。

Worksheets("LMC_Model").Range("G1:X34").CopyPicture xlScreen, xlPicture 
Worksheets("PDF Page").Paste _ 
    Destination:=Worksheets("PDF Page").Range("a26") 

這很好，但屏幕圖像太大，需要在粘貼到最終位置之前調整大小。粘貼前調整圖像大小的方法有哪些？

Answer 1

一個選項是粘貼圖片，然後調整它的大小。由於它將在粘貼後被選中，因此您可以在以後使用它：

Selection.ShapeRange.LockAspectRatio = msoFalse 
Selection.Placement = xlMoveAndSize 
Selection.ShapeRange.Width = DesiredPixelWidth 
Selection.ShapeRange.Height = DesiredPixelHeight