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

YZC51

谢谢老师分享！

blackttea1

感谢分享，下载备用。

nemosama111

zjdh 发表于 2014-8-3 20:07
改一下
Private Sub CommandButton3_Click()
    On Error Resume Next

请问一下老师，用下面这个代码，出来的图片非常模糊，备注里面的图片是清晰的原图，请问可以修改一下代码，使单元格内的图片和备注里的图片一样吗？

救急了，跪谢跪谢！


Private Sub CommandButton3_Click()
    On Error Resume Next
    Dim rngTemp As Range, k As Range, shpPic As Picture
    filepath = ThisWorkbook.path & "\"
    Set rngTemp = Application.InputBox("图片插入区域：", "选择单元格", Type:=8)
    For Each k In rngTemp
        With k
            Filename = Dir(filepath & .Value & "*.jpg")
            If k <> "" And Filename <> "" Then
                ActiveSheet.Shapes.AddPicture filepath & Filename, False, True, .Left, .Top, .Width, .Height
                .ClearComments
                .AddComment
                .Comment.Shape.Fill.UserPicture filepath & "\" & .Value & ".jpg"
                .Comment.Shape.Height = 240
                .Comment.Shape.Width = 320
            End If
        End With
    Next
End Sub

liaoxianlu

感谢分享，收藏了先！

liaoxianlu

yanyueqin 发表于 2015-9-10 12:39
分享可选路径代码：
Private Sub CommandButton1_Click()
    On Error Resume Next

留个记号，值得学习。

liaoxianlu

lk710618 发表于 2014-9-11 22:17
老师，弱弱的问一下，如果我有个折线图在表中，不想删除，如何改进？
目前只要一点控件，所有图都删了， ...

你这个商品管理的原表好厉害，介不介意原表带公式分享一下，谢谢！

常州海达装潢

zjdh 发表于 2014-8-3 19:08
你再试试
Private Sub CommandButton1_Click()
    On Error Resume Next

你好，老师，这个功能非常强大，有个问题就是代码能不能让图片比单元格稍小一号，能看得出来是分开的，

番茄土豆炒鸡蛋

下载了楼主的“批量插入图片解决方案.zip”文件，使用后发现插入的图片会变形，请问下怎么解决图片变形的问题，我的需求是：

• 原始的图片大小不一，需要把插入的图片形状设置成5*6（我的原始图片手机拍的很大），并且不能变形
• 点击“插入”按钮，取消选择单元格区域，直接弹出要选择插入图片的路径，然后自动的按照名字排序
  

   
    已经上传了图片跟附件，因为附件不能超过2M，只能把原始图片放在了表格里然后压缩了下

lk710618

番茄土豆炒鸡蛋 发表于 2022-7-14 09:21
下载了楼主的“批量插入图片解决方案.zip”文件，使用后发现插入的图片会变形，请问下怎么解决图片变形的问 ...

根据你自己图片实际比例，调整VBA中插入图片的高度和宽度参数

番茄土豆炒鸡蛋

lk710618 发表于 2022-7-14 10:02
根据你自己图片实际比例，调整VBA中插入图片的高度和宽度参数

小白一枚，VBA不是很懂，大佬可以帮下忙吗