在粘贴到新工作表之前，在剪贴板上调整屏幕图像的大小

Question

我遇到的情况是我要复制一系列单元格，选择并将它们复制为屏幕图像，然后将它们粘贴到新的工作表和位置。

icon = new ImageIcon("flag.gif");

这很好用，但屏幕图像太大，需要在粘贴到最终位置之前调整大小。在粘贴之前有什么方法可以调整图像大小？

Answer 1

一种选择是粘贴图片然后调整大小。由于粘贴后已经选择了它，您可以在以后使用它：

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