Макрос Word 2013 добавить и редактировать картинку

Question

Я пытаюсь создать макрос в word 2013. Моя цель - добавить изображение на текущую страницу, а затем установить его размер и положение. Моя проблема в том, что я не могу установить параметры макета: я хочу, чтобы он был "позади текста" и "фиксировать положение на странице".

Это мой код:

#

Sub myMacro()
    Set bla = ActiveDocument.Shapes.AddPicture _
    (FileName:="\\\image_path///", _
    LinkToFile:=False, _
    SaveWithDocument:=True, _
    Left:=28.34, _
    Top:=500, _
    Width:=107, _
    Height:=107)
End Sub

#

Спасибо!

Answer 1

Вы делаете это через бла. Когда вы вызываете ActiveDocument.Shapes.AddPicture, он возвращает объект Shape. В вашем случае вы передаете это бла и игнорируете это.

Чтобы задать форму для переноса, вы можете сделать это после создания бла:

With bla
    .WrapFormat.Type = wdWrapBehind
    .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
    .RelativeVerticalPosition = wdRelativeVerticalPositionPage
    .Left = InchesToPoints(3.0)
    .Top = InchesToPoints(4.2)
End With

wdRelativeHorizontalPositionPage а также wdRelativeVerticalPositionPage скажем, что координаты относятся к левой и верхней части текущей страницы. Затем.left указывает дюймы от левого края страницы, а. Top - количество дюймов от вершины.

Все доступные участники, которых вы можете назвать в форме, обсуждаются на этих страницах MSDN