批量修改word图片大小！

竹本一字

我找到这个代码：

但有点错误，因为我现在急用，当对VEA不是太熟悉！

所以请高手帮我看看，写个直接正确的上来，我先用下，谢谢了！

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

我的图片是防放在固定表格大小里的，要更改图片符合那个表格大小！

c81

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

竹本一字

Sub Macro1()

    Selection.InlineShapes(1).Height = 43.95
    Selection.InlineShapes(1).Width = 85.05

End Sub

这个是选择的一个图片后更改，现在只要改成是循环到所有的图片就可以了！

Sub kk() Dim a As InlineShape For Each b In ActiveDocument.InlineShapes '(在其中循环)

上面的这个b 是干什么用的呀？

竹本一字

Dim a As InlineShape
For Each a In ActiveDocument.InlineShapes   '(在其中循环)

哦，是从这个分开的呀！谢谢了，试试，万分感谢！

以后还要努力学习~~~呵呵，平时看了一点，用的时候，就蒙了！

wp1118

怎样批量缩小图片到原图的1/2

Sub 缩小()
Selection.InlineShapes(a).Height = Selection.InlineShapes(a).Height / 2
Selection.InlineShapes(a).Width = Selection.InlineShapes(a).Width / 2
End Sub

这个只能单张缩小啊

 a.Width = 126.4
a.Height = 126.4

126.4的单位是什么？像素？怎么换算？

[此贴子已经被作者于2006-10-29 17:08:51编辑过]

守柔

QUOTE:

以下是引用wp1118在2006-10-29 16:55:40的发言：

怎样批量缩小图片到原图的1/2

Sub 缩小()
Selection.InlineShapes(a).Height = Selection.InlineShapes(a).Height / 2
Selection.InlineShapes(a).Width = Selection.InlineShapes(a).Width / 2
End Sub

这个只能单张缩小啊

 a.Width = 126.4
a.Height = 126.4

126.4的单位是什么？像素？怎么换算？

你的图片是嵌入式图形吗？

126.4单位是磅，可以通过函数换算。

菊石泽露

pixles像素,和磅如何换算，函数如何用？谢谢！

szqhb

很好，这段代码正是我所要的，谢谢润彩绘真
我把这段代码修改了一下，只修改一处就OK了
Sub 批量统一调整图片大小()
  Dim iShape As InlineShape, WidthNum As Long
  For Each iShape In ActiveDocument.InlineShapes
    With iShape
    WidthNum = .Width
    c = 10         '在此处修改相片宽,单位厘米
   .Width = c * 28.35
   .Height = (c * 28.35 / WidthNum) * .Height
    End With
     Next
  End Sub
不知道能否加入inputbox输入窗口？本人试了一下，不成功，需要反复输入数值。

[ 本帖最后由 szqhb 于 2011-2-17 15:12 编辑 ]

润彩绘真

Sub 调整图片大小()
  Dim iShape As inlineshape, WidthNum As Long
  For Each iShape In ActiveDocument.InlineShapes
    With iShape
      WidthNum = .Width
      .Width = 10 * 28.35
      .Height = (10 * 28.35 / WidthNum) * .Height
    End With
     Next
  End Sub
注：1厘米＝28.35磅值
　　以上为同比例缩放的近似算法

szqhb

2楼这段代码有用，做个记号先