Как вставить изображение в Word с помощью пользовательской формы в Excel-VBA - PullRequest
Новая
       31

Как вставить изображение в Word с помощью пользовательской формы в Excel-VBA

0 голосов
/ 16 ноября 2018

Я создал пользовательскую форму в Excel, в которой есть средство выбора изображений, которое сохраняет выбранный файл в качестве изображения изображения.(Image1.Picture) Мне нужно сделать кнопку, которая копирует это изображение и добавляет его в существующий документ Word, но мне не удается заставить его работать.Любая идея?Заранее спасибо за помощь.

1 Ответ

0 голосов
/ 16 ноября 2018

Попробуйте эту функцию, я построил функцию, которая вставляет изображение в strImagePath в документ в strDocPath (например, «D: \ MyImage.img» и «D: \ MyDoc.docx»). Если у вас есть проблемы с типами изображений (.jpg или .gif и т. Д.), Выполните исследование с помощью функции objShapes.AddPicture

Function FnImageInsert(strImagePath, strDocPath)
  Dim objWord
  Dim objDoc
  Set objWord = CreateObject("Word.Application")
  Set objDoc = objWord.Documents.Open(strDocPath)
  objWord.Visible = True      
  objWord.Selection.TypeText (vbCrLf & "One Picture will be inserted here....")
  objDoc.InlineShapes.AddPicture (strImagePath)
End Function

Затем вы можете создать пользовательскую форму для вставки этих путей и запуска функции. Надеюсь, что это полезно.

...