如何把单元格内多个图片合拼成一个图片

wzd028 · 发表于 2024-9-21 13:48

V列各单元格内有多个图片，如何把单元格内图片合拼成一个图片。如V4单元格有3个图片，运行VBA后合拼成一个图片，原3个图片删除，新生成的图片在原单元格内，要求不要压缩图片像素。

01.rar (634.47 KB, 下载次数: 11)

lk710618 · 发表于 2024-9-21 13:58

求助跟分配任务似的

ZHLK · 发表于 2024-9-22 09:16

Sub demo()
Dim shp As Shape
Dim dic As Object
Set dic = CreateObject("Scripting.dictionary")
For Each shp In Sheet1.Shapes
dic(shp.TopLeftCell.Address) = dic(shp.TopLeftCell.Address) & "," & shp.Name
Next
arr = dic.items
For i = 0 To dic.Count - 1
Debug.Print Mid(arr(i), 2)
If InStr(Mid(arr(i), 2), ",") Then
ActiveSheet.Shapes.Range(Split(Mid(arr(i), 2), ",")).Select
Selection.ShapeRange.Group
End If
Next

End Sub

		自动登录	找回密码
密码			免费注册

[求助] 如何把单元格内多个图片合拼成一个图片