EXECL将图片批量导出并重命名

张起灵1

在论坛和度娘找了好多案例，实测都不行，不是少图片就是不清晰，有没有高手帮忙看看

quqiyuan

文件名不能带*，改成x
试了下，有些输出，不过我觉得Excel输出图片问题是很多，也一直搞不好，如果不在乎输出名字，可以直接打开Excel文件，找出图片复制出来也可以

ww87725244

1. Sub Rename()
   
2. Application.ScreenUpdating = False
   
3. For Each pic In ActiveSheet.Shapes
   
4. If pic.Type = msoPicture Then
   
5. RN = Replace(pic.TopLeftCell.Offset(0, -1).Value, "*", "x") '重命名图片
   
6. pic.Copy
   
7. With ActiveSheet.ChartObjects.Add(0, 0, pic.Width, pic.Height).Chart '创建图片
   
8. .Parent.Select
   
9. .Paste
   
10. .Export "J:\新建文件夹" & RN & ".jpg", "jpg"
    
11. .Parent.Delete
    
12. End With
    
13. End If
    
14. Next
    
15. MsgBox "导出图片完成！"
    
16. Application.ScreenUpdating = True
    
17. End Sub

复制代码

ww87725244

如楼上大神所述，*为特殊字符，替换成X就好了