Автор Тема: не двигается вставляемая картинка в документ word c QR кодом  (Прочитано 276 раз)

Оффлайн Посетитель 22.03.2019

  • Посетитель форума
  • Сообщений: 7
Помогите, пожалуйста.

Есть документ Word.  В нем есть QR код. Мне надо вставить в документ печать(т.е картинку) и передвинуть ее в нужное место . Но  картинка не движется, т.к. у нее получается свойство "обтекание тестом" значение "в тексте". Если бы у нее было значение "перед текстом", то она бы легко двигалась. Как мне задать в VBA  это свойство? M.б. какой-то другой путь вставки печати в документ?
мой код:
   Dim oDocch As Document
   Dim inshape As InlineShape, shape As shape
   Set oDocch = Documents.Open("имя файла документа")
   Documents(oDocch).Activate                         
   Selection.EndKey Unit:=wdStory     'встаем на конец документа
   Selection.Find.ClearFormatting
   Selection.InlineShapes.AddPicture FileName:= _
        "имя файла рисунка.png", LinkToFile:=False, _
        SaveWithDocument:=True


что не так?

Оффлайн Администратор

  • Administrator
  • Сообщений: 2066
Написал вам два письма на почту с заголовком "Письмо с Форума по VBA, Excel и Word". Написал именно на почту, а не на форум.

Создайте переменную и назначьте ей вставленный рисунок.
Затем перемещайте рисунок, используя переменную "Рис". Для этого пишите в коде Рис, ставьте точку и выбирайте нужный элемент.

    Dim Рис As Shape
    Set Рис = Selection.InlineShapes.AddPicture(FileName:= _
        "имя файла рисунка.png", LinkToFile:=False, _
        SaveWithDocument:=True).ConvertToShape

Оффлайн Посетитель 22.03.2019

  • Посетитель форума
  • Сообщений: 7
Большое спасибо, все работает.