我有一个包含电子表格的加载项。我需要使用其他工作表中的文本,图像和格式来更新此电子表格。
用于执行此操作的代码是:
ActiveWorkbook.Sheets("START").Cells.Copy Destination:=ThisWorkbook.Sheets("START").Range("A1")
问题在于,复制的图像与原始图像的尺寸或纵横比不同。 我尝试将图片以.tif,.jpeg和.bmp格式粘贴到源表中,但没有成功。 我也尝试更改ThisWorkbook上的高度,但似乎不允许更改图像。
如果任何人都可以建议一种以原始尺寸复制图像或更改尺寸的方法,则将非常有帮助。