| |
Вставка картинок в документ |
|
| |
Вставка картинок в документ в таблицу в MS Word.
Dim oWord As Word.Application
Dim oDoc As Word.Document
Dim oTable As Word.Table
Set oWord = CreateObject("word.application")
oWord.Visible = True
Set oDoc = oWord.Documents.Add
Dim r As Integer, c As Integer
Set oTable = oDoc.Tables.Add(oDoc.Bookmarks("\endofdoc").Range, 3, 4)
oTable.Range.ParagraphFormat.SpaceAfter = 6
For r = 1 To 3
For c = 1 To 4
oTable.Cell(r, c).Range.FormattedText.InlineShapes.AddPicture FileName:="Path\Filename.bmp", linktofile:=False, savewithdocument:=True
Next
Next
oTable.Rows(1).Range.Font.Bold = True
|
|
| |
|
|
|
|