Excel VBA-批量导出图片.vba

笑虾

已于 2022-06-11 10:54:02 修改

阅读量7.2k

点赞数 3

分类专栏： # Excel # VBA 文章标签： excel vba

于 2018-10-24 10:53:50 首次发布

大家好，我是笨笨，笨笨的笨，笨笨的笨，转载请注明出处，谢谢！

本文链接：https://blog.csdn.net/jx520/article/details/83340485

版权

VBA 同时被 2 个专栏收录

21 篇文章 6 订阅

订阅专栏

Excel

19 篇文章 3 订阅

订阅专栏

'r,c 图片所在单元格的偏移量，用来做图片的名字
Sub exportPic()
r = 0
c = -2
    For i = 1 To ActiveSheet.Shapes.Count
        ActiveSheet.Shapes(i).Select
        Name = Range(ActiveSheet.Shapes(i).TopLeftCell.Address).Offset(r, c)
        H = Selection.Height
        W = Selection.Width
        Selection.ShapeRange.ScaleHeight 1#, msoFalse, msoScaleFromTopLeft
        Selection.ShapeRange.ScaleWidth 1#, msoFalse, msoScaleFromTopLeft
        Selection.CopyPicture
       
        Set myChart = ActiveSheet.ChartObjects.Add(0, 0, Selection.Width - 2, Selection.Height - 2).Chart
        myChart.Paste
        ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Line.Visible = msoFalse '去掉Chart边框
        ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Fill.Visible = msoFalse '去掉Chart填充
        myChart.Export ThisWorkbook.Path & "\" & Name & ".png"
        myChart.Parent.Delete
    
        ActiveSheet.Shapes(i).Select
        Selection.Height = H
        Selection.Width = W
    Next
End Sub