紧急求助!需要逐张插入图片，请问这个功能能实现吗？

sirsunny

我想在excel中加入一个按钮，每点击一次，就会加载一张图片，并在旁边列出改文件名。以便可以在上面进行一些处理。

sirsunny

遍历所有图片，后缀名是jpg，谢谢大家了。

hhjjpp

插入-图片-文件框内选黑所有图片（ctrl+a）-确认

sirsunny

hhjjpp 发表于 2018-7-10 12:28
插入-图片-文件框内选黑所有图片（ctrl+a）-确认

您这个办法不符合要求啊。需要每点一次按钮载入一张图片，并删除前一张图片，就像放幻灯片似的。

sirsunny

1. Sub CES()
   
2.     Dim FSO, ff, w As String
   
3.     Dim i As Integer
   
4.    
   
5.     Set FSO = CreateObject("scripting.filesystemobject")
   
6.     Set ff = FSO.getfolder("C:\Users\sunwg2\Desktop\VOCs")
   
7.     s = ff.Files.Count
   
8.     ReDim Preserve ar(s)
   
9.     ReDim Preserve ar2(s)
   
10.     For Each f In ff.Files
    
11.         i = i + 1
    
12.         ar(i) = f
    
13.         ar2(i) = f.Name
    
14.     Next
    
15.    
    
16. End Sub
    
17. 
    
18. Sub 插入下一张图片()
    
19.     Call CES
    
20.     For Each im In ActiveSheet.Shapes
    
21.         If im.Name <> "Button 6" And im.Name <> "Button 7" Then
    
22.             im.Delete
    
23.         End If
    
24.     Next
    
25.     If z >= s Then
    
26.         z = 1
    
27.     Else
    
28.         z = z + 1
    
29.     End If
    
30.     ActiveSheet.Shapes.AddPicture ar(z), 1, 1, 0, 0, 635, 476 '图片大小为800*600*96dpi
    
31.     Sheet1.Range("a3") = ar2(z)
    
32. end sub

复制代码

sirsunny

谁能帮我精简一下代码也是极好的。

不知道为什么

sirsunny 发表于 2018-7-10 12:42
您这个办法不符合要求啊。需要每点一次按钮载入一张图片，并删除前一张图片，就像放幻灯片似的。

我也来凑个热闹

sirsunny

不知道为什么 发表于 2018-7-10 13:09
我也来凑个热闹

需要工具箱吗？方便给出实现代码吗？

zjdh

逐张插入图片.rar (228.49 KB, 下载次数: 17)

2018-7-11 16:27 上传

点击文件名下载附件