批量修改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

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

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   '(在其中循环)

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

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

怎样批量缩小图片到原图的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编辑过]

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

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

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

请教当图片在不同位置时，怎么修改大小，如.ActiveDocument.Tables(1)
a.Width = 50
a.Height = 50
.ActiveDocument.Tables(2)
a.Width = 100
a.Height = 100

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