【原创】Excel 批量导出一列的图片，并命名为Q列对应的名称

Sub ExportSheetPictures()
    Dim shp, my_sheet
    Set my_sheet = Sheets("Sheet0")
    ' 循环获取工作表中的shape对象
    For Each shp In my_sheet.Shapes
        shp.Copy
        ' 新建空白chart对象，将shape对象复制粘贴到chart对象中
        With my_sheet.ChartObjects.Add(0, 0, shp.Width, shp.Height + 5).Chart
            .ChartArea.Border.LineStyle = 0
            .ChartArea.Select
            .Paste
            .Export ThisWorkbook.Path & "/pic/" & Range("Q" & shp.TopLeftCell.Row) & ".png"
            .Parent.Delete
        End With
    Next
    Set my_sheet = Nothing
End Sub