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

Question

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

我只需要做两件事:

从文件中插入图片

将其重新定位到右上角并调整其大小

我可以通过录制新宏功能完成第一个任务，但我无法在录制模式下选择移动图片，因此我需要一些 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

此外，请查看 this有关 AddPicture() 函数的说明以及可以传递给它的可用参数列表，请参阅 msdn 文章。