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

firony

感谢分享，试试看先

技术白

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

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

技术白

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

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

peter-chen

保留备用，谢谢分享

lemonyim

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

风之飘雨

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

风之飘雨

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

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

风之飘雨

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

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

zjdh

这一段改一下
............
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

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