如何自动将图片批量插入到合并的单元格内且图片自适应大小

ujjfnsai

救助各位大神：我想实现在这样一功能，我的图片放在pci文件夹里，图片命名方式和xls第二列的名称相同，第二名称和第三列图片的名称格式相同，实现批量插入图片，图片的大小自动调整按单元格的大小自动调整。合并的单元格没有规律。实现在的效果如图(sup1-6)显示.附件里有vba代码，现在了现在了一个问题下面单元格里是会显示有几行颜色就会插几张图片。不知道原因，急盼各位大神帮助。万分感谢

活在理想的世界

1. Sub d()
   
2. Dim arr(), shp As Shape
   
3. arr = Sheet1.Range("a1").CurrentRegion
   
4. For Each shp In Sheet1.Shapes
   
5.     shp.Delete
   
6. Next
   
7. On Error Resume Next
   
8. For i = 2 To UBound(arr)
   
9.     If arr(i, 2) <> "" Then
   
10.         Set shp = Sheet1.Shapes.AddPicture(ThisWorkbook.Path & "\pic" & arr(i, 2) & ".jpg", msoFalse, msoTrue, Sheet1.Range("c" & i).MergeArea.Left, Sheet1.Range("c" & i).MergeArea.Top, Sheet1.Range("c" & i).MergeArea.Width, Sheet1.Range("c" & i).MergeArea.Height)
    
11.         shp.Placement = xlMoveAndSize
    
12.     End If
    
13. Next
    
14. End Sub

复制代码

活在理想的世界

1111111111111111111111111111111111111

jiminyanyan

2楼老师代码OK。

ujjfnsai

活在理想的世界 发表于 2018-7-14 09:12

老师，能不能一个合并单元格只插入一张图啊，现在这个代码是多张图的

活在理想的世界

ujjfnsai 发表于 2018-7-16 11:06
老师，能不能一个合并单元格只插入一张图啊，现在这个代码是多张图的

因为你的其他被合并的单元格里面有文字。

活在理想的世界

ujjfnsai 发表于 2018-7-16 11:06
老师，能不能一个合并单元格只插入一张图啊，现在这个代码是多张图的

为什么我14号的帖子你今天才找我？难道我是你24小时客服？

chenjx80

前些天才写了一个，批量插入图片到合并单元格中，保持图片的宽高比，不变形，
并且在单元格中最大化、居中放置。
链接:https://pan.baidu.com/s/119h4Y5Qj_UgFb6nBtwMZtA 密码:9zj2

ujjfnsai

活在理想的世界 发表于 2018-7-16 11:10
为什么我14号的帖子你今天才找我？难道我是你24小时客服？

老师，不好意思啊，主要是这个平台我不太会用，有时候找不到。对不起