如何用发VBA自动将表内的图另存保存为单独文件的图片

liujun

wj2368 发表于 2015-2-2 10:46
。。。。。。。。。。。。。。。。。

感谢wj2368老师，爱死你了。。。

liujun

    Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    ActiveSheet.Paste
     Set Newshape = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
     With ActiveSheet.ChartObjects.Add(1, 1, 1, 1)
         .Width = Newshape.Width
         .Height = Newshape.Height
          Newshape.Copy
         .Chart.Paste
         .Chart.Export ActiveWorkbook.Path & "\" & Cells(1, 2) & ".jpg"
         .Delete
     End With
     Newshape.Delete
   MsgBox "恭喜!图片已生成并存放在" & ActiveWorkbook.Path
老师
  为什么打开文件直接运行以上编码没有问题，但在执行完其他宏文件后，这个编码出就出错呢。有没有解决办法？

liujun

Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
     ActiveSheet.Paste
      Set Newshape = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
      With ActiveSheet.ChartObjects.Add(1, 1, 1, 1)
          .Width = Newshape.Width
          .Height = Newshape.Height
          Newshape.Copy
          .Chart.Paste
          .Chart.Export ActiveWorkbook.Path & "\" & Cells(1, 2) & ".jpg"
          .Delete
      End With
      Newshape.Delete
    MsgBox "恭喜!图片已生成并存放在" & ActiveWorkbook.Path


请问各位老师，上边的代码为什么在office2016执行出来是张白纸呢？

wj2368

liujun 发表于 2018-9-6 09:30
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
     ActiveSheet.Paste
      Set New ...

/////////////////