如何获取或自定义-转换图表为图片后的图片名称？ VBA EXCEL

以下代码为将报表转换成图片，但是系统每次都会自动生成随机的图片名称。ActiveChart.SelectActiveChart.CopyPictureAppearance... 以下代码为将报表转换成图片，但是系统每次都会自动生成随机的图片名称。

ActiveChart.Select
ActiveChart.CopyPicture Appearance:=xlPrinter, Format:=xlPicture
With ActiveSheet
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
End With

如：报表"图表 1“，转换后，随即生成如Picture 169、100……

如何转换过程中自定义图片名称。
或者获取每次转换后的图片名称。

先谢各位了展开

 我来答

1个回答

#合辑# 面试问优缺点怎么回答最加分？

真真真白丁
推荐于2016-01-10 · TA获得超过8521个赞

知道大有可为答主

回答量：4644

采纳率：85%

帮助的人：1731万

我也去答题访问个人页

关注

展开全部

第3行加一句：
ActiveChart.Select
ActiveChart.CopyPicture Appearance:=xlPrinter, Format:=xlPicture
Selection.Name = "输入你希望的名称"
With ActiveSheet
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
End With

追问

试过，还是不行，好像赋值也不行，生成的图片名称还是随机的。

追答

Sorry，加错位置了，应该加在粘贴后面，倒数第2行。再试：
 
ActiveChart.Select
ActiveChart.CopyPicture Appearance:=xlPrinter, Format:=xlPicture
 With ActiveSheet
  ActiveSheet.Range("A1").Select
    ActiveSheet.Paste
Selection.Name = "输入你希望的名称"
 End With