qt中label获取当前图片_ExcelVBA批量导出Excel中的图片到当前路径

应用场景

1、下载或收发的工作表中存在图片，需要导出备份

2、数据分析的数据图表，需要批量的导出图片

附：视频

知识要点

1、Dir(path, vbDirectory)检查某些文件或目录是否存在，返回目录或文件夹名称

2、Kill (path & "*") 从磁盘中删除文件

3、MkDir (path) 创建一个新的目录或文件夹

4、ChartObjects.Add 创建新的嵌入式图表

附：源码

Sub 导出工作表中的图片()    '-----------------------------------------------------------------------    '自定义数据类型    Dim path As String    Dim Shp, Sht    Dim n As Long        Application.ScreenUpdating = False        '在当前路径下增加一个文件夹，名称为“导出图片”，赋值给path    path = ThisWorkbook.path & "\导出图片\"        '在当前路径是否存在文件夹，存在则清空，不存在则新建