我找到了,使用
Sub test()
Sheet1.Shapes(1).Select
Selection.CopyPicture
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
.Paste
.Export "C:\临时" & i & ".jpg"
.Parent.Delete
End With
End Sub
这个语句可以把里面的图片转成一张jpg的图片,不过翻成X3支持的语句时还会出错,可以帮我翻一下吗