VBA导出Chart另存为为JPG图像是空白的，求解

MerlynSong

各位前辈好！
       我自己编写了一段代码，可以导出Excel图表，另存为JPG图片，但是图片是空白的，不知道哪里出了问题，还想请教论坛里各位前辈指点迷津。代码如下：
Sub Try()
    Dim iShape As Shape, iChart As ChartObject, FileName As String
    For i = 1 To 3 '假设有三个，循环开始
    Set iShape = Sheets(1).Shapes(i)

    iShape.CopyPicture Appearance:=xlScreen, Format:=xlPicture    '复制到剪贴板
    Set iChart = Sheets(2).ChartObjects.Add(0, 0, iShape.Width, iShape.Height)

    iChart.Chart.Paste

    FileName = Application.GetSaveAsFilename(InitialFileName:="iPicture" & i, _
                                FileFilter:="JPEG文件(*.jpg),*.jpg", _
                                Title:="指定文件名")
    If FileName = "False" Then GoTo Exit_Line '如果点击取消按钮则退出
    iChart.Chart.Export FileName:=FileName, FilterName:=UCase(Right(FileName, 3))    '导出为图片文件

Exit_Line:
    iChart.Delete
Next i '假设有三个，循环结束
End Sub


我使用的是Excel2016 （win7 64位）

xyxcc177

没生成图像，数据源未指定

MerlynSong

xyxcc177 发表于 2018-5-19 06:27
没生成图像，数据源未指定

感谢前辈指点，已成功解决问题

kgdgwgw

楼主怎么解决的，我也碰到同样的问题，一直搞不定

MerlynSong

kgdgwgw 发表于 2018-6-9 11:01
楼主怎么解决的，我也碰到同样的问题，一直搞不定

您好，根据之前回复我的那位前辈的指点，我发现我的代码没有指定数据源，我把Set iShape = Sheets(1).Shapes(i)替换成了Set myChart = Sheet1.ChartObjects(i).Chart后解决

kgdgwgw

MerlynSong 发表于 2018-6-12 16:51
您好，根据之前回复我的那位前辈的指点，我发现我的代码没有指定数据源，我把Set iShape = Sheets(1).Sha ...

非常谢谢你，我也解决了