导出图片并命名到文件夹

Jaer

如附件，将B2,C2，D2,E2分别导出到桌面文件夹名“图片”中，命名为A2-1,A2-2,A2-3,A2-4,一共有上万张图片，由于不懂VBA，昨天看了半天类似帖子还是没解决，所以请大家帮个忙，谢谢！

liulang0808

一种变通方法，就是excel文件另存为html，然后看看文件夹内的图片是否可以使用吧

Jaer

liulang0808 发表于 2018-9-20 08:27
一种变通方法，就是excel文件另存为html，然后看看文件夹内的图片是否可以使用吧

那个我会，关键是需要命名，谢谢

liulang0808

1. Sub 按钮1_Click()
   
2.     Application.ScreenUpdating = False
   
3.     pth = ThisWorkbook.Path & ""
   
4.     For Each shp In ActiveSheet.Shapes
   
5.         If shp.Type = 13 Then
   
6.             n = n + 1
   
7.             shp.Copy
   
8.             With ActiveSheet.ChartObjects.Add(0, 0, shp.Width, shp.Height).Chart
   
9.                 .Paste
   
10.                 .Export pth & shp.TopLeftCell.Address(0, 0) & ".jpg"
    
11.                 .Parent.Delete
    
12.             End With
    
13.         End If
    
14.     Next
    
15.     Application.ScreenUpdating = True
    
16. End Sub

复制代码

wj2368

，，，，，，，，，，，，，，

liulang0808

文件名按照单元格名称命名的，自己可以调整的

Jaer

不知道是不是我的EXCEL有问题还是怎么的，我导出来都是空白的图片，还有比较抱歉的是，命名我描述错误😅，应该是把
图片B2，C2，D2，E2的图片命名为A2-1，A2-2,A2-3,A2-4;

图片B3,C3,D3,E3的图片命名为A3-1,A3-2,A3-3,A3-4;
以此类推

changhong8

有再多一些的数据吗