excel - SaveAs Pictures on excel 维护他们的分辨率

Question

我想征求意见，我设法使用以下代码在 Excel 上附加了一张图片：

Dim pic as shape
Dim L, T as Double
Dim filename as string
L=100 'for Left 
T=100 'for top 
Filename='whatever the file path & name is
Set pic = sheets("sheet1").shapes.addpicture(filename,msofalse, msotrue, L,T,-1,-1)
Pic.height=100

此代码用于保持图片分辨率，但是当我将保存为时出现问题，嵌入在 excel 中的图片在保存并打开该保存的文件后失去其原始分辨率。

Dim filepath, filename, file as string
Filepath='where ever the file path is
Filename='name of the file you want 

File=filepath & "\" & filename & ".xlsx" 
Sheets("sheet1").copy
Activeworkbook.SaveAs Filename:=(file)
Activeworkbook.close True

你们有关于如何在使用宏保存时保持图片分辨率的想法吗？谢谢

标签： excelvba