★在Excel中浏览图片的例子★

lpzxhjp

中地OA办公 发表于 2012-12-8 15:56
楼主您好！
看到您的帖子万分激动，因为我做了一个雇员管理报表，正愁不能添加图片，楼主的方法提供了一种 ...

看看行吗？？？

NewZealand

下载下来测试了下，终于找到了按图片比例显示的代码，万分感谢楼主。

只是图片不能填满J1单元格，修下了一下模块里的代码（红色部分），这样就能以J1单元格的宽度或高度浏览图片。

修改后的代码：

Sub 调用图片()
'插入图片,按比例调整图片长宽以适应单元
a = Range("j1").Value
Range("j1").Select
    ActiveSheet.Pictures.Insert(ActiveWorkbook.Path & "\" & a).Select        '当前文件所在目录下以单元内容为名称的.jpg图片
    With Selection
        ta = Range(Range("j1").MergeArea.Address).Height    '(合并)单元高度
        tb = Range(Range("j1").MergeArea.Address).Width     '(合并)单元宽度
        tc = .Height    '图片高度
        td = .Width     '图片宽度
        tm = Application.WorksheetFunction.Min(ta / tc, tb / td)    '单元与图片之间长宽差异比例的最小值
        .Height = tc * tm    '按比例调整图片宽度
        .Width = td * tm      '按比例调整图片高度
        .Top = Range("j1").Top + (Range("j1").MergeArea.Height - .Height) / 2 '垂直居中:
        .Left = Range("j1").MergeArea.Left + (Range("j1").MergeArea.Width - .Width) / 2   '水平居中:
    End With
    ActiveCell.Select     '获得焦点
End Sub

yang150036

很想试试，可是看不明白

Ж007Ж-兆生

非常实用，顶起来！

Ж007Ж-兆生

我的文件确定只有一个JPG类型，想在输入时把JPG后缀去掉，请头号版主，怎么样更改代码？谢谢

hujq512591

学习，下下看看

旭日云海

可以批量按a列内容，将对应图片插到J列吗？不固定在J1，也不是只放一张图片。

kelly_521911

谢谢，非常有用，谢谢谢谢！

高玉甫

http://club.excelhome.net/thread-587280-1-1.html
这个帖子我拜读了，真是不错，受益匪浅，谢谢您。
不过，还是有点问题：往往人们都习惯把图片都放在一个文件夹里的，E xcel工作表是放在存放图片那个文件夹外面的，也就是说，Excel工作表和存放图片的文件夹是在同一目录之下的，那么，您的这个VBA代码就不灵了，如果把如下这句改一改，ActiveSheet.Pictures.Insert(ActiveWorkbook.Path & "\" & a).Select        '当前文件所在目录下以单元内容为名称的.jpg图片
使Excel工作表和存放图片的文件夹是在同一目录下，也能使用，岂不是更好？期盼您的改善，谢谢您。

MYEXCEL2009

高玉甫 发表于 2014-1-7 19:56
http://club.excelhome.net/thread-587280-1-1.html
这个帖子我拜读了，真是不错，受益匪浅，谢谢您。
不 ...

我也是这么想的
我有一个帖子，目前还没有人帮忙解决，也来瞧瞧
http://club.excelhome.net/forum. ... p;extra=#pid7616659