如何在Word中插入图像并调整其大小？

Question

我编写了一个VBScript来自动创建Word文档。

我使用以下代码插入图片，但我似乎无法找到一种方法来调整图片。

objSelection.InlineShapes.AddPicture("C:\test.jpg")

Answer 1

AddPicture方法返回插入对象的句柄，因此你可以这样做：

Set pic = objSelection.InlineShapes.AddPicture("C:\test.jpg")
pic.Height = 100
pic.Width  = 200