Excel 将图像复制和粘贴到图表中时提供不同输出的VBA代码

我对将范围的图像复制到图表对象的代码有问题。从该工作簿运行时，代码工作正常。但是，当我试图通过userform运行代码时，它只会复制空白图像。这是完全相同的代码

代码如下：

Dim rng As Range
Dim imgName As String

Set rng = Worksheets("Summary Stats").Range("A1:U11")
imgName = "C:\Users\************\Desktop\Temp Files\SummaryPicture.gif"

rng.CopyPicture Appearance:=xlScreen, Format:=xlBitmap

With Worksheets("Summary Stats").ChartObjects.Add(Left:=rng.Left, Top:=rng.Top, _
    Width:=rng.Width, Height:=rng.Height)
    .Name = "ChartVolumeMetricsDevEXPORT"
    .Activate
End With

ActiveChart.Paste

Worksheets("Summary Stats").ChartObjects("ChartVolumeMetricsDevEXPORT").Chart.Export imgName
Worksheets("Summary Stats").ChartObjects("ChartVolumeMetricsDevEXPORT").Delete

---

用户窗体是否在模式模式下打开？这可能会干扰'Appearance:=xlScreen'参数，可能会尝试'Appearance:=xlPrinter'？嘿，我尝试了，但它抛出了错误，range类failedIt的Copy picture方法在模式模式下打开。我试着换了一下，效果很好。