使用Microsoft Word宏插入调整大小并重新定位图像

Question

我正在尝试在VB中为Microsoft Word编写一个非常基本的宏,但我没有所需的知识.

我只需要做两件事:

1. 从文件插入图片
2. 将其重新定位到右上角并调整其大小

我可以通过记录新的宏功能完成第一项任务,但我无法在录制模式下选择移动图片,所以我需要一些VB代码.

我已经有了这个,所以如何移动/调整图像大小？

    Selection.InlineShapes.AddPicture FileName:= _
    "C:\Users\***\Pictures\**.jpg" _
    , LinkToFile:=False, SaveWithDocument:=True

Answer 1

AddPicture函数有许多参数,包括宽度和高度,您可以使用这些参数将图像调整为所需的大小.

请看下面的例子:

Sub InsertImage()

    Dim imagePath As String
    imagePath = "C:\\picture.jpg"

    ActiveDocument.Shapes.AddPicture FileName:=imagePath, _
    LinkToFile:=False, _
    SaveWithDocument:=True, _
    Left:=-5, _
    Top:=5, _
    Anchor:=Selection.Range, _
    Width:=20, _
    Height:=20

End Sub

另外,请看一下这篇 msdn文章,了解AddPicture()函数的解释以及可以传递给它的可用参数列表.