Resize and Insert Image Into Word

[jcrick]

Hi

There was a previous post on this but I cannot find it...

The previous post showed resizing using the graphics object:

'Declare source / old bitmap
            Dim bitmap As Bitmap = New Bitmap(patientPic)
 
            'Declare new / target bitmap
            Dim newbitmap As Bitmap = New Bitmap(CInt(250), CInt(200))
            'Declare graphic taken from new bitmap
            Dim g As Graphics = Graphics.FromImage(newbitmap)
 
            'Draw the new graphic
            g.DrawImage(bitmap, 0, 0, newbitmap.Width, newbitmap.Height)
 

But having gotten g, how do you insert the resized image into a Word doc and make sureit is inline - I was trying to use inlineshapes but just can't get it to work.

Any ideas gratefully received.

Jerry

[Frinavale]

You need to save your picture to the hard drive so that you can use the AddPicture method in order to add the image to your Word Document. Check out this article for more information on how to add a picture to a Word Document.


The following code will add the saved image to an existing Word Document file.

'Declare source / old bitmap            
Dim oldbitmap As Bitmap = New Bitmap(patientPic)           
 
'Declare new / target bitmap           
Dim newbitmap As Bitmap = New Bitmap(CInt(250), CInt(200))
 
'Declare graphic taken from new bitmap
Dim g As Graphics = Graphics.FromImage(newbitmap)           
 
'Draw the new graphic
g.DrawImage(oldbitmap, 0, 0, newbitmap.Width, newbitmap.Height)
 
Dim pathToSavedImage As String ="C:\myTempImage.jpg"
Dim pathToDocument As String = "C:\MyDocument.doc"
 
newbitmap .Save(pathToSavedImage )
 
'Cleaning up image resources
oldbitmap .Dispose()
newbitmap.Dispose()
g.Dispose()
 
'Opening the Word Document
Dim objApp As New Microsoft.Office.Interop.Word.Application
Dim objWordDoc As New Microsoft.Office.Interop.Word.Document
 
objWordDoc = objApp.Documents.Open(pathToDocument)
 
'Adding the image to the Word Document
Dim ObjPic As Microsoft.Office.Interop.Word.InlineShape = objWordDoc.InlineShapes.AddPicture(pathToSavedImage)
 
'Saving the Word Document
objWordDoc.SaveAs(pathToDocument)
 
'Cleaning up
objWordDoc.Close()
 

[jcrick]

Frinavale

Thanks.

Unfortunately saving to disk and reloading is not ideal because there will be plenty of images in a single doc which means that performance will be poor. What I really want to do is load the image from file, resize in memory and then place the in-memory image into the Word doc.

Any help gratefully appreciated.

Jerry

[Frinavale]

From what I can tell you cannot save an image from memory into the Word Document. You could just write over the same file once you have added the InlineShapes to the Word Document.....

[jcrick]

Frinavale

Thanks. I guess I'll have to do that for now and see if I can find a better solution later.

Thanks again.

Jerry