Vba 通过编码将图像粘贴到图表会变得模糊

在图表上粘贴图像时出现问题

这是我的代码的一个样例

ws.Paste
Set MyChart = wb.Charts.Add
MyChart.Name = "ImageChart"
Set MyChart = MyChart.Location(Where:=xlLocationAsObject, Name:=ws.Name)
MyChart.ChartArea.Width = ws.Shapes(1).Width
MyChart.ChartArea.Height = ws.Shapes(1).Height
MyChart.Parent.Border.LineStyle = 0 
ws.Shapes(1).CopyPicture xlScreen, xlPicture
MyChart.ChartArea.Select
MyChart.Paste

---

我正在调整图表的高度和宽度，使其与图像相同，当它粘贴时，会变得模糊。但是当我手动操作时，图像质量保持不变。

您需要将图片复制为高分辨率图元文件

---

将第一个参数更改为

CopyPicture

为

xlPrinter

我将把'xlScreen'更改为

xlPrinter

？我试过了，但仍然保存着模糊的图像。在

xlPicture

上执行了，但仍然相同。我还勾选了“高级设置”中的“不要crompress图像文件”9分钟前移除，我想xlPrinter就可以了。谢谢，先生：）