| {\rtf1\ansi\ansicpg1252\deff0\deflang1044{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}} \viewkind4\uc1\pard\f0\fs17 Changing the picture of an Image object on a Word Document \par \par Below is the code to dynamically load an image to a word document. \par \par \par Option Explicit \par \par 'Purpose : Loads an image to an picture control in a Word document. \par 'Inputs : oDoc The document where the image is located. \par ' sImageName The name of the image in the document. \par ' sPicturePath The path to the image file to load. \par 'Outputs : Returns True if successfully loaded the image. \par 'Notes : Requires Word 2000. \par \par Function LoadPictureToDocument(oDoc As Document, sImageName As String, sPicturePath As String) As Boolean \par Dim oPic As Object \par \par On Error GoTo ErrFailed \par If Len(Dir$(sPicturePath)) > 0 And Len(sPicturePath) > 0 Then \par 'Picture file exists. \par 'Get reference to picture \par Set oPic = CallByName(oDoc, sImageName, VbGet) \par 'Load picture \par Set oPic.Picture = LoadPicture(sPicturePath) \par 'Release reference \par Set oPic = Nothing \par 'Return success code \par LoadPictureToDocument = True \par End If \par Exit Function \par \par ErrFailed: \par Debug.Print "Error in LoadPictureToDocument: " & Err.Description \par LoadPictureToDocument = False \par End Function \par \par 'Demonstration routine \par Sub Test() \par LoadPictureToDocument ActiveDocument, "imgSig1", "c:\\a.bmp" \par End Sub \par } |
Changing the picture of an Image object on a Word |
India web developer web development India | India web development company India ecommerce web developer