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

aistong · 发表于 2010-8-24 09:30

请教楼主，为什么我做这样的改动，程序就不执行呢？请帮我看看问题出在哪？谢谢！

LangQueS · 发表于 2010-8-24 10:34

员工花名册.rar (17.81 KB, 下载次数: 197)

aistong · 发表于 2010-8-24 11:13

请教楼主，直接从B3单元格选择员工姓名为什么不能显示照片，必须从I2选择员工姓名吗？

aistong · 发表于 2010-8-24 11:18

原帖由 LangQueS 于 2010-8-24 10:34 发表
777081

请教楼主，直接从B3单元格选择员工姓名为什么不能显示照片，必须从I2选择员工姓名吗？

LangQueS · 发表于 2010-8-24 11:33

原帖由 aistong 于 2010-8-24 11:18 发表

请教楼主，直接从B3单元格选择员工姓名为什么不能显示照片，必须从I2选择员工姓名吗？

方法可以有多种：

从I2选择姓名双击I列姓名选择I列姓名（不推荐）其他

xjm001 · 发表于 2010-8-27 22:19

With Selection
      ta = Range(Range("h3").MergeArea.Address).Height '(合并)单元高度
      tb = Range(Range("h3").MergeArea.Address).Width    '(合并)单元宽度
      tc = .Height '图片高度
      td = .Width    '图片宽度
      tm = Application.WorksheetFunction.Min(ta / tc, tb / td) '单元与图片之间长宽差异比例的最小值
      .Height = .Height * tm '按比例调整图片宽度
      .Width = .Width * tm    '按比例调整图片高度
      .Top = Range("h3").Top + (Range("h3").MergeArea.Height - .Height) / 2 '垂直居中:
      .Left = Range("h3").MergeArea.Left + (Range("h3").MergeArea.Width - .Width) / 2 '水平居中:
End With

LangQueS · 发表于 2010-8-28 00:09

2007没用过，类似参考：

★利用有效性信息批量调用信息和图片★ http://club.excelhome.net/thread-529975-1-1.html

lxzxmpx · 发表于 2010-9-3 21:28

好东东，下载学习了

rbq555 · 发表于 2010-11-22 18:28

不错的东西，学习学习，多谢分享！

枫桥夜泊lwb · 发表于 2010-12-5 15:02

谢谢版主的详解，收藏学习

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

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

请教在EXCEL2007版中不能按下列代码调整图片大小?