Вставка и редактирование рисунков в Word. VBA

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Вставка и редактирование рисунков в Word. VBA (Word)

RAN

Дата: Четверг, 24.04.2014, 19:14 | Сообщение № 1

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Мяв!
Закину и сюда (http://programmersforum.ru/showthread.php?t=259385)

Другой день бодаюсь со вставкой рисунков в Word.

В исходном файле пытаюся вставить рисунок в таблицу с 1 ячейкой содержащей закладку и установить его размеры.

[vba]

Код

        wd.Bookmarks.Item(marker).Select
          wa.Selection.InlineShapes.AddPicture Filename:=basep & aan, LinkToFile:= _
                     False, SaveWithDocument:=True
          wa.Selection.Tables(1).Select
          With wa.Selection.InlineShapes(1)    'Если Формат - Рисунок - Положение "в тексте"
'            Heght = .Height: wigt = .Width    ' костыль
              .LockAspectRatio = -1    'msoTrue    'Формат - Риснок - Размер - Сохранять пропорции
                          .Height = 141.88    'Высота рисунка 227 = 8 см
'            .Height = 100 '360 ': .Width = .Height * (wigt / Heght)    ' костыль
          End With

[/vba]

Без костыля меняется только либо высота, либо ширина. При этом ошибки нет
Сегодня создал шаблон с таблицей в 1 ячейку, написал код для вставки

[vba]

Код

            For Each x In coll
                  .Selection.InsertRowsBelow 1
                  .Selection.TypeText Text:="Фото № " & x(1) & " " & x(2)
                  .Selection.EndKey Unit:=5, Extend:=1    ' 5   1
                  .Selection.ParagraphFormat.KeepWithNext = True
                  .Selection.InsertRowsBelow 1
                  .Selection.ParagraphFormat.KeepWithNext = False
                  .Selection.InlineShapes.AddPicture Filename:=x(3), LinkToFile:= _
                     False, SaveWithDocument:=True
                  wa.Selection.EndKey Unit:=5, Extend:=1    ' 5   1
                  With wa.Selection.InlineShapes(1)    'Если Формат - Рисунок - Положение "в тексте"
                      .LockAspectRatio = -1    ' msoTrue    'Формат - Риснок - Размер - Сохранять пропорции
                      .Width = 100 '454    'Ширина рисунка
                  End With
              Next

[/vba]

Все работает.

Аналогичным кодом вставляю рисунок на лист, но вылетаю с ошибкой при изменении размера.

[vba]

Код

            wd.Bookmarks.Item(marker).Select
              wa.Selection.InlineShapes.AddPicture Filename:=iFulleName, LinkToFile:= _
                     False, SaveWithDocument:=True
              With wa.Selection.InlineShapes(1)    'Если Формат - Рисунок - Положение "в тексте"
                  .LockAspectRatio = -1    ' msoTrue    'Формат - Риснок - Размер - Сохранять пропорции
                  .Width = 400    'Высота рисунка 227 = 8 см
              End With

[/vba]
Подскажите, где собака порылась? И как правильно?

Обработка идет из Excel.

Код

[/vba]
Подскажите, где собака порылась? И как правильно?

Обработка идет из Excel.RAN

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Четверг, 24.04.2014, 19:16

Ответить

СообщениеМяв!
Закину и сюда (http://programmersforum.ru/showthread.php?t=259385)

Другой день бодаюсь со вставкой рисунков в Word.

В исходном файле пытаюся вставить рисунок в таблицу с 1 ячейкой содержащей закладку и установить его размеры.

[vba]

Код

[/vba]
Подскажите, где собака порылась? И как правильно?

Обработка идет из Excel.

Автор - RAN
Дата добавления - 24.04.2014 в 19:14

anvg

Дата: Пятница, 25.04.2014, 05:13 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 581

Репутация: 271 ±

Замечаний: 0% ±

2016, 365

Добрый день Андрей
В коде в самом Word размер меняет произвольно, думаю, что из Excel будет работать. Или я чего-то не понял в вопросе?
[vba]

Код

Public Sub test()
     Dim pMarker As Bookmark, pShape As InlineShape
     Set pMarker = ThisDocument.Bookmarks("marker")
     Set pShape = pMarker.Range.InlineShapes.AddPicture("c:\Temp\2\3.jpg", False, True)
     pShape.LockAspectRatio = msoFalse
     pShape.Height = 142
     pShape.Width = 142
End Sub

[/vba]
Успехов.
P. S. Подобно как и в Excel зачем мучать Selection?

Ответить

RAN

Дата: Пятница, 25.04.2014, 10:55 | Сообщение № 3

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Потестил.
Переменная помогла. Спасибо.

Однако, похоже в файле Word глюк.
Тестовый работает, а основной без костыля не хочет.

Пример теста в архиве.

По поводу Selection подумаю.

Люди разные бывают. Я человеку исправил точку изменения отображения окна Word, а он в претензии - зачем в скрытом режиме сделал, желаю смотреть, как картинки в Word вставляются. lol

К сообщению приложен файл: Test.rar (78.7 Kb)

Быть или не быть, вот в чем загвоздка!

Ответить

anvg

Дата: Пятница, 25.04.2014, 11:07 | Сообщение № 4

Группа: Друзья

Ранг: Ветеран

Сообщений: 581

Репутация: 271 ±

Замечаний: 0% ±

2016, 365

Странно, у меня Word 2010 32bit выполнилось без проблем. А где должна была быть ошибка?

Ответить

RAN

Дата: Пятница, 25.04.2014, 12:09 | Сообщение № 5

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Ошибки как таковой нет, код выполняется, просто игнорируется строка
[vba]

Код

pShape.LockAspectRatio = -1

[/vba]
Изменяется только один размер, тот, который укажешь.

А в примере все работает, изменяются оба размера.

Костыль в первом коде первого поста.

Быть или не быть, вот в чем загвоздка!

Ответить

anvg

Дата: Пятница, 25.04.2014, 13:26 | Сообщение № 6

Группа: Друзья

Ранг: Ветеран

Сообщений: 581

Репутация: 271 ±

Замечаний: 0% ±

2016, 365

LockAspectRatio = -1 блокирует изменение соотношения сторон. Изменив один размер, в силу этого, изменится и второй так, чтобы сохранить это отношение. В моём же примере LockAspectRatio = msoFalse, то есть размеры можно менять произвольно