将EXCEL中图片导出并自动按货号命名的方法 EXCEL批量提取图片方法 导图工具

我们日常经常会接收到别人发给我们带图片的EXCEL表格，如果我们需要把这些图片收集下来，并方便我们自己插图使用，就需要让这些图片能自动命名，这个时候就需要用到宏，这个批量自动导出图片，并将图片按左侧或者右侧货号命名

宏如下:注意修改保存位置，我这里都是存在D:picture

1、货号在A列，图片在B列

Sub yy()
Dim p As Shape, a$
For Each c In Range([a2], [a65536].End(3))
a = c.Value
       c(1, 2).CopyPicture
        With ActiveSheet.ChartObjects.Add(0, 0, c.Width, c.Height).Chart
            .Paste
            .Export "D:\picture\" & a & ".jpg", "JPG"
            .Parent.Delete
        End With
    Next
End Sub


2、导出图片格式为：图片要在A列，货号在B列

Sub 导出图片()
    Dim shp  As Shape
    For Each shp In ActiveSheet.Shapes
        shp.Copy
        With ActiveSheet.ChartObjects.Add(0, 0, shp.Width, shp.Height).Chart
            .Paste
            .Export Filename:="D:\picture\" & shp.TopLeftCell.Offset(0, 1) & ".jpg", FilterName:="jpg"
            Selection.Delete
            .Parent.Delete
        End With
    Next
End Sub