Word 2013 макрос добавить и изменить изображение

Я пытаюсь создать макрос в 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
#

Спасибо!


image macros word-2013
person markus pr    schedule 05.09.2014    source источник

Ответы (1)


arrow_upward
0
arrow_downward

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

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

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

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

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

person Michael Petch    schedule 05.09.2014