Вставка изображения в документ Word

Question

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

Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click 
     Dim objWordApp As Word.Application 
     objWordApp = New Word.Application 
     Dim objDoc As Word.Document 

     objWordApp.Documents.Open("" & Form2.TextBox1.Text & "\capatext\temlate.doc") 
     objDoc = objWordApp.ActiveDocument 

     'Open an existing document. 


     objDoc.Content.Find.Execute(FindText:="<<srce>>", _ 
ReplaceWith:=Form1.TextBox15.Text, _ 
Replace:=Word.WdReplace.wdReplaceAll) '''''' 
     Dim oldbitmap As Bitmap = New Bitmap(Form1.PictureBox1.Image) 
     Dim newbitmap As Bitmap = New Bitmap(CInt(100%), CInt(100%)) 
     Dim g As Graphics = Graphics.FromImage(newbitmap) 
     g.DrawImage(oldbitmap, 0, 0, newbitmap.Width, newbitmap.Height) 
     Dim pathToSavedImage As String = "" & Form2.TextBox1.Text & "\capatext\tempimg1.jpg" 
     newbitmap.Save(pathToSavedImage) 
     oldbitmap.Dispose() 
     newbitmap.Dispose() 
     g.Dispose() 

     Dim ObjPic As Microsoft.Office.Interop.Word.InlineShape = objDoc.InlineShapes.AddPicture(pathToSavedImage) 
     Dim oldCopy As String 
     oldCopy = ("" & Form2.TextBox1.Text & "\" & Form1.TextBox1.Text & ".doc") 
     If System.IO.File.Exists(oldCopy) = True Then 
      System.IO.File.Delete(oldCopy) 
     ElseIf System.IO.File.Exists(oldCopy) = False Then 
     End If 
     objWordApp.Quit() 
     objWordApp = Nothing 
     Timer1.Start() 
    End Sub 

Answer 1

Привет вот мой рабочий код

If Form1.CheckBox4.CheckState.Equals(CheckState.Checked) Then 

      Dim oldbitmap As Bitmap = New Bitmap(Form1.PictureBox1.Image) 
      Dim newbitmap As Bitmap = New Bitmap(CInt(100%), CInt(100%)) 
      Dim g As Graphics = Graphics.FromImage(newbitmap) 
      g.DrawImage(oldbitmap, 0, 0, newbitmap.Width, newbitmap.Height) 
      Dim pathToSavedImage As String = "" & Form2.TextBox1.Text & "\capatext\tempimg1.jpg" 
      newbitmap.Save(pathToSavedImage) 

      oldbitmap.Dispose() 
      newbitmap.Dispose() 
      g.Dispose() 

      objDoc.Tables(1).Cell(4, 1).Range.InlineShapes.AddPicture(_ 
      FileName:=pathToSavedImage, LinkToFile:=False) 
     Else 
     End If 
     Dim oldCopy As String 
     oldCopy = ("" & Form2.TextBox1.Text & "\" & Form1.TextBox1.Text & ".doc") 
     If System.IO.File.Exists(oldCopy) = True Then 
      System.IO.File.Delete(oldCopy) 
     ElseIf System.IO.File.Exists(oldCopy) = False Then 
     End If 
     objWordApp.Documents.Item(1).Save() 
     objWordApp.Quit() 
     objWordApp = Nothing 

     Timer1.Start()