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 msdn文章，了解AddPicture（）函数的说明以及可传递给它的可用参数列表。

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

1 个答案: