邮件合并中相片太大且不统一的问题要如何解决？

请问邮件合并中相片太大且不统一的问题要如何解决？我想做到邮件合并的相片不大于单元格。类似于EXCEL的stretch。不知可否办到？希望能得到各位的指教。谢谢

看，我的邮件合并，相片太大，把单元格都挤得变形了。如何解决。即能看到整张相片，又能单元格不变形。谢谢

看了一下你的附件，你的相片本身的长、宽比例是不一致的，比较难处理
加入你的相片长宽比例一致，只是太大了，你可以参考下面链接2、10、11楼代码
http://club.excelhome.net/thread-182079-2-1.html

直接在合并后的文档里来调整相片的大小
Sub 批量统一调整图片大小()
  Dim iShape As InlineShape, WidthNum As Long
  For Each iShape In ActiveDocument.InlineShapes
    With iShape
    WidthNum = .Width
    c = 3.5         '在此处修改相片宽,单位厘米，比如3.5厘米
   .Width = c * 28.35
   .Height = (c * 28.35 / WidthNum) * .Height
    End With
     Next
  End Sub

[ 本帖最后由 szqhb 于 2011-6-14 22:09 编辑 ]