Создайте ImageBox в документе Microsoft Word и вставьте изображение с помощью Visual Basic

Question

Я работаю над проектом на VB, который связан с обработкой документов в Microsoft Word. У меня есть трудности при создании ImageBox с определенным размером в документе. У кого-нибудь есть идеи, как это сделать? Можно ли это сделать? Цель состоит в том, чтобы создать ImageBox и затем вставить изображение в это поле. Изображение должно растянуться и получить размер ImageBox.

То, что я делал до сих пор, таково:

(...)  
Dim NewSize As Size
NewSize = New Size(Width, Height)
ResizedImage = New Bitmap(ImageToInsert, NewSize)
(...)
WordDocument.AddPicture(DirectoryAddress & "\ResizedImage." & ImageExtension)

Хотя этот код выполняет вставку изображения с помощью указанный размер в документе Word. Я хочу, чтобы изображение растягивалось и получало размер ImageBox, который будет создан. Надеюсь, я был достаточно ясен.

Заранее спасибо!

Answer 1

Что ж, если бы вы посмотрели на свойства создаваемой таблицы, вы бы увидели, что не создал таблицу с фиксированной высотой и шириной. Для этого вы можете использовать что-то вроде:

NewTable = WordDoc.Tables.Add(para.Range, 1, 1, 0, 0)
NewTable.Cell(1,1).Width(500)
NewTable.Cell(1,1).Height(389)
NewTable.Cell(1, 1).HeightRule(2)

или в VBA:

Set NewTable = WordDoc.Tables.Add(para.Range, 1, 1, 0, 0)
NewTable.Cell(1,1).Width = 500
NewTable.Cell(1,1).Height = 389
NewTable.Cell(1, 1).HeightRule = 2