在粘贴到新工作表之前，在剪贴板上调整单元格范围内的屏幕图像的大小
我有一种情况是复制一系列单元格，select并复制它们作为屏幕图像，并将它们粘贴到新的表单和位置中。
Worksheets("LMC_Model").Range("G1:X34").CopyPicture xlScreen, xlPicture Worksheets("PDF Page").Paste _ Destination:=Worksheets("PDF Page").Range("a26") 这个效果很好，但是屏幕图像太大，需要在粘贴到最终位置之前resize。 在粘贴之前调整图像大小的方法有哪些？
一个选项是粘贴图片，然后resize。 由于粘贴后就已经被选中了，以后可以使用：
Selection.ShapeRange.LockAspectRatio = msoFalse Selection.Placement = xlMoveAndSize Selection.ShapeRange.Width = DesiredPixelWidth Selection.ShapeRange.Height = DesiredPixelHeight