一键批量插入图片的2个疑难问题（已解决，方案上传供分享）

firony · 发表于 2018-8-7 12:49

感谢分享，试试看先

技术白 · 发表于 2018-11-13 10:46

lk710618 发表于 2014-8-3 23:05
非常感谢zjdh老师的耐心指点！非常感谢！完美解决！
老师，我考虑到经常需要筛选资料看图片，防止筛选后 ...

楼主我也是图片发给别人显示不出你这个附件是可以显示出来的吗

技术白 · 发表于 2018-11-13 11:01

lk710618 发表于 2014-8-3 23:05
非常感谢zjdh老师的耐心指点！非常感谢！完美解决！
老师，我考虑到经常需要筛选资料看图片，防止筛选后 ...

楼方怎么去掉批示。。。。我不用批示

peter-chen · 发表于 2018-11-15 17:02

保留备用，谢谢分享

lemonyim · 发表于 2019-5-24 10:22

版主你好~想请教一下，如果我想把对应的图片插在所选区域右边一列，应该怎么调整代码呢~？

风之飘雨 · 发表于 2019-6-5 15:27

有个问题，如果图片是插入到合并单元格内，那么宽度只有第一个格的宽度，这个怎么解决

风之飘雨 · 发表于 2019-6-5 15:34

zjdh 发表于 2014-8-3 09:26
Private Sub CommandButton1_Click()
On Error Resume Next ...

有个问题，如果图片是插入到合并单元格内，那么宽度只有第一个格的宽度，而不是合并单元格的宽度，这个怎么解决

风之飘雨 · 发表于 2019-6-5 15:36

zjdh 发表于 2014-8-3 13:43
不会啊，我这很正常啊。

老师，您的代码对要插入的合并单元格支持不友好，请问应该如何改进一下？谢谢

zjdh · 发表于 2019-6-6 08:51

这一段改一下
............
For Each k In rngTemp
            Set R = k
            If k.MergeCells Then '处理合并单元格
               Set R = R.MergeArea
            End If
            With k
                  Filename = Dir(FilePath & .Value & "*.jpg")
                  If k <> "" And Filename <> "" Then
                     ActiveSheet.Shapes.Addpicture FilePath & Filename, False, True, R.Left, R.Top, R.Width, R.Height
                     .ClearComments
                     .AddComment
                     .Comment.Shape.Fill.UserPicture FilePath & "\" & .Value & ".jpg"
                     .Comment.Shape.Height = 240
                     .Comment.Shape.Width = 320
                     Filename = ""
                  End If
            End With
         Next
...................

ycwsuzhou · 发表于 2019-7-2 23:57

没搞过宏，用选择性粘贴又一直出错，学习下！

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

[求助] 一键批量插入图片的2个疑难问题（已解决，方案上传供分享）