截屏后保存为图片的VBA语句

夜风窗台

爱了爱了。么么哒

故从何生

各位大神，有没有64位系统上的代码？测试很多次都因为变量类型不对搞不定！

yuancf

谢谢分享这段“单元格区域保存为图片”代码

396302319

收藏一个备用

bj917

Sub CopyPic()
          Sheets("sheet1").Activate
          Sheets("sheet1").Range("A1:H21").Select
          'Selection.Copy
          Selection.CopyPicture 1  '选区复制为图片
          With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart  '通过在当前工作表添加相同大小的图表的方式转存成图片
               .Paste  '粘贴复制后的图片
               .export "D:\金台1.png", "png"    '导出到当前工作表目录下,以当前区域首行单元格的值命名图片
               .Parent.Delete  '删除该图表
          End With
         
          Sheets("sheet2").Activate
          Sheets("sheet2").Range("A1:C21").Select
          'Selection.Copy
          Selection.CopyPicture 1  '选区复制为图片
          With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart  '通过在当前工作表添加相同大小的图表的方式转存成图片
               .Paste  '粘贴复制后的图片
               .export "D:\金台2.png", "png"    '导出到当前工作表目录下,以当前区域首行单元格的值命名图片
               .Parent.Delete  '删除该图表
          End With
         
         
End Sub

pc087

WPS JSA实现起来更简单