求老师帮忙实现合并单元格图片批量插入，急

lbp6688

主要想实现的功能：1、插入照片自适应单元格大小。
2、插入照片同时插入照片的文件名。
3、读取插入照片拍摄时期。
4、照片批注。
主要是我是一个小白，我希望有个天使能帮助我实现，万分感谢！

jsqb

静静地等待天使的到来

liulang0808

1. Sub 按钮1_Click()
   
2.     a = 1
   
3.     Set fso = CreateObject("scripting.filesystemobject")
   
4.     Application.ScreenUpdating = False
   
5.     For Each f In fso.getfolder(ThisWorkbook.Path).Files
   
6.         If InStr(f.Name, ".xls") = 0 Then
   
7.             Cells(a, 1).Select
   
8.             Set Rng = Selection
   
9.             pth = f
   
10.             Set photo = ActiveSheet.Pictures.Insert(pth)
    
11.             With photo
    
12.               .Name = f.Name
    
13.               .ShapeRange.LockAspectRatio = msoFalse
    
14.               .Top = Rng.Top
    
15.               .Left = Rng.Left
    
16.               .Width = Rng.Width
    
17.               .Height = Rng.Height
    
18.             End With
    
19.             Cells(a + 3, 3) = fso.GetFile(f).DateCreated
    
20.             Cells(a + 2, 3) = Split(f.Name, ".")(0)
    
21.             a = a + 9
    
22.         End If
    
23.     Next f
    
24.     Application.ScreenUpdating = True
    
25. End Sub

复制代码

liulang0808

附件内容供参考

不知道为什么

liulang0808 发表于 2018-8-16 14:12
附件内容供参考

照片日期不对啊

liulang0808

不知道为什么 发表于 2018-8-16 14:17
照片日期不对啊

当前提取是创建时间，
DateLastModified提取的是修改时间
供楼主参考

不知道为什么

liulang0808 发表于 2018-8-16 14:23
当前提取是创建时间，
DateLastModified提取的是修改时间
供楼主参考

版主，您的逻辑是没错。
但是我理解楼主的需求是照片的拍摄时间，而不是创建的时间。我这个测试了好久也没捣鼓出来。

liulang0808

不知道为什么 发表于 2018-8-16 14:30
版主，您的逻辑是没错。
但是我理解楼主的需求是照片的拍摄时间，而不是创建的时间。我这个测试了好久也 ...

不好意思，没有注意是拍摄时间截图的提取时间不知道对不对。一会有空再整合下代码

不知道为什么

liulang0808 发表于 2018-8-16 14:33
不好意思，没有注意是拍摄时间截图的提取时间不知道对不对。一会有空再整合下代码

呵呵，版主您客气了。确实这个拍摄时间不太好取。如果您解决了，分享下代码哈，谢谢！

zhang6029

学习一下，很有意思的功能。