| {\rtf1\ansi\ansicpg1252\deff0\deflang1044{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}} \viewkind4\uc1\pard\f0\fs17 Changing the picture of an Image on an Excel worksheet \par \par The following routine demonstrates how to change the picture of an image control on an Excel worksheet: \par \par \par 'Purpose : Loads an image to an picture control on an Excel Worksheet \par 'Inputs : oShtLoad The sheet where the image is located. \par ' sImageName The name of the image \par ' sPicturePath The path to the image file to load. \par 'Outputs : Returns True if successfully loaded the image. \par \par \par Function LoadPictureToSheet(oShtLoad As Excel.Worksheet, sImageName As String, sPicturePath As String) As Boolean \par On Error GoTo ErrFailed \par If Len(Dir$(sPicturePath)) > 0 And Len(sPicturePath) > 0 Then \par 'File exists, try and load it \par Set oShtLoad.OLEObjects(sImageName).Object.Picture = LoadPicture(sPicturePath) \par LoadPictureToSheet = True \par End If \par Exit Function \par \par ErrFailed: \par Debug.Print Err.Description \par LoadPictureToSheet = False \par End Function \par \par 'Demonstration routine \par Sub Test() \par LoadPictureToSheet Sheets(1), "Image1", "D:\\Test.jpg" \par End Sub \par } |
Changing the picture of an Image on an Excel works |
India web developer web development India | India web development company India ecommerce web developer