代码如下：
Dim rng As Range
Set rng = Range("ab1:ao22")
rng.CopyPicture
With ActiveSheet.ChartObjects.Add(0, 0, rng.Width, rng.Height).Chart
.Parent.Select
.Paste
.Export "C:\Users\HP\Desktop\图片\排行榜.JPG", "JPG"
.Parent.Delete
End With
MsgBox ("已保存英雄榜图片到指定文件夹下")
所得截图如下
：
