Комментарии на: Код VBA для MS Word – вставка картинок в текст https://autolisp.ru/2014/03/18/vba_word_insert_pictures/ LISP для AutoCAD Tue, 24 Feb 2026 16:11:05 +0000 hourly 1 http://wordpress.org/?v=4.0 От: Кулик Алексей aka kpblc https://autolisp.ru/2014/03/18/vba_word_insert_pictures/comment-page-1/#comment-58898 Thu, 17 Dec 2015 07:05:54 +0000 http://autolisp.ru/?p=736#comment-58898 На днях продолжил ковыряться с этим кодом (да, старенький, но рабочий ;)) Обнаружил, что код можно и нужно дополнить.
Изначально при вставке "поля-картинки" она масштабируется так, чтобы "влезьть" в отведенную область. Но я обнаружил, что часто выполняю масштабирование рисунка уже внутри документа Word, а новый файл, с "_35%" в конце имени, не делаю. Ну и бог с ним - перед строкой

1
  Selection.TypeText Text:=vbCrLf + Replace(sFileName, "_35%", "")

добавлю

1
2
  oField.InlineShape.ScaleHeight = 35
  oField.InlineShape.ScaleWidth = 35

И картинка будет сразу масштабироваться до 35%.
Вообще говоря, InlineShape обладает весьма забавными методами и свойствами, надо будет потом поковыряться...

P.S. Код работает только в MS Word 2010 и более поздних. LibreOffice 5.0 вообще открывает такой документ, не понимая, что такое "поле-картинка" - а это уже печально :(

]]>