EXCEL如何批量导出图片并命名

晨曦矇眬

版主导出图片的黑色边框可以去掉吗

bubudan

工作中经常需要处理excel中的图片。

phffk

这个好，先做个笔记，待会再学。

xiaoyu_619

版主，我出现的是这个额问题，请看附件，应该如何解决呢，谢谢！

xiaoyu_619

不好意思，附件如下

xiaoyu_619

版主，在吗？

香川群子

显然是发生了"D:\picture\"文件夹不存在的错误。

可以在开始时插入验证文件夹是否存在，
如果不存在就创建文件夹的代码如下：

1. Sub yy()
   
2.     Dim p As Shape, a$
   
3.    
   
4.     f = "D:\picture"
   
5.     If Dir(f, vbDirectory) = "" Then MkDir (f)
   
6.         
   
7.     For Each c In Range([a2], [a65536].End(3))
   
8.         a = Mid(c.Value, 2)
   
9.         c(1, 2).CopyPicture
   
10.         With ActiveSheet.ChartObjects.Add(0, 0, c.Width, c.Height).Chart
    
11.             .Paste
    
12.             .Export "D:\picture" & a & ".jpg", "jpg"
    
13.             .Parent.Delete
    
14.         End With
    
15.     Next
    
16. End Sub
    
17. 
    

复制代码

[ 本帖最后由 香川群子 于 2011-5-27 16:39 编辑 ]

香川群子

另外，我已经在30楼中告诉了可以在宏开始运行后，先让使用者选择文件夹的代码。

请各位参考。

chenying1204

谢谢，收藏

chenying1204

版主，怎么去掉黑框啊