excel单元格转图片保存

更新一下，加入一种截图模式，两种模式对比。
ws ＝ wks对象.对象型方法 (“Item”, 1)
rng ＝ ws.对象型方法 (“Range”, 编辑框1.内容)
rng.对象型方法 (“CopyPicture”, 1, -4147)
cobj ＝ ws.对象型方法 (“ChartObjects”, ).对象型方法 (“Add”, 0, 0, rng.读数值属性 (“Width”, ), rng.读数值属性 (“Height”, )).读对象型属性 (“Chart”, )
cobj.读对象型属性 (“Paste”, )
cobj.对象型方法 (“Export”, “C:\Users\Administrator\Desktop\11.jpg”, “jpg”) ' 保存位置
cobj.读对象型属性 (“Parent”, ).方法 (“Delete”, )
_启动窗口.标题 ＝ “截图完成”