Вставьте изменения размера и перемещения изображения с помощью макроса 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 (), а также список доступных параметров, которые вы можете передать ей.