修改ThisWorkbook中的图像

时间:2019-02-08 12:07:33

标签: excel vba

我有一个包含电子表格的加载项。我需要使用其他工作表中的文本,图像和格式来更新此电子表格。

用于执行此操作的代码是:

ActiveWorkbook.Sheets("START").Cells.Copy Destination:=ThisWorkbook.Sheets("START").Range("A1")

问题在于,复制的图像与原始图像的尺寸或纵横比不同。 我尝试将图片以.tif,.jpeg和.bmp格式粘贴到源表中,但没有成功。 我也尝试更改ThisWorkbook上的高度,但似乎不允许更改图像。

如果任何人都可以建议一种以原始尺寸复制图像或更改尺寸的方法,则将非常有帮助。

0 个答案:

没有答案