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

cumulonimbus

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

cumulonimbus

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

szqhb

看了一下你的附件，你的相片本身的长、宽比例是不一致的，比较难处理
加入你的相片长宽比例一致，只是太大了，你可以参考下面链接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 编辑 ]

cumulonimbus

先感谢一下你的回答。
兄弟，能不能让相片正好等于单元格的长宽！能否再次指教一下。
我写了一个，好像不成，要怎么改呢？
Sub kk()
Set aa = ActiveDocument.Tables(1).Cell(1, 3)

Dim a As InlineShape
For Each a In ActiveDocument.InlineShapes   '(在其中循环)
a.Width = aa.Width
a.Height = aa.Height
Next
End Sub

[ 本帖最后由 cumulonimbus 于 2011-6-15 12:19 编辑 ]

szqhb

看楼上红色字部分

szqhb

老弟，填满整个单元格是可以的，若你的相片比例不一致的话，让他正好等于单元格的长与宽，那相片就变形了

szqhb

自己量一下该相片单元格的尺寸，自行修改相片宽、高的值
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
    d = 5.5         '在此处修改相片高,单位厘米，比如5.5厘米   
.Height = d * 28.35
    End With
     Next
  End Sub

[ 本帖最后由 szqhb 于 2011-6-17 18:27 编辑 ]

cumulonimbus

原帖由 szqhb 于 2011-6-15 18:10 发表
老弟，填满整个单元格是可以的，若你的相片比例不一致的话，让他正好等于单元格的长与宽，那相片就变形了

首选，感谢兄弟们的回答。
兄弟，无所谓啦，变形就变形。能否教我一下哈

cumulonimbus

兄弟，我的单元格是不固定的。并且我不想量单元格的长宽。
我这个代码行的，咋就不行了呢？盼回答或修改，谢谢
Sub kk()
Set aa = ActiveDocument.Tables(1).Cell(1, 3)

Dim a As InlineShape
For Each a In ActiveDocument.InlineShapes   '(在其中循环)
a.Width = aa.Width
a.Height = aa.Height
Next
End Sub

szqhb

就你的示例所言，既然是胸卡，大小肯定全部是一样的，单元格怎么会不固定呢？
量一下单元格都没有时间吗？我晕倒！！！！！没法帮到你啦！！！！
你的代码本身就不行，或说它好像对于没有合并单元格的表格是可行的，有合并的话就失灵了，因为它的高度还是一行单元格的高度
不过我不懂得修改

[ 本帖最后由 szqhb 于 2011-6-18 20:17 编辑 ]