Replace the image in a "controlbox image"....

  • Thread starter Thread starter SpeeD
  • Start date Start date
S

SpeeD

Hi
I have in my sheet a logo that is inside a "controlbox image". The box is
already formatted.

Bur know i ahve to give my users the option of repalcing the logo, but
retein all the format of the "box" (position, back golor, etc...)

How can o do this??

Thanks a lot!!

P.S: i already have the code for asking the userr for the new logo... i just
cant make the "box" appear with the new selected image.
 
Dim sFile As String
Dim oleObj As OLEObject

sFile = "<path>\myPic.gif"
Set oleObj = ActiveSheet.OLEObjects("Image1")
oleObj.Object.Picture = LoadPicture(sFile)

If you get an error with LoadPicture highlit "function not defined", add a
reference to "OLE Automation" in Tools references.

Consider too the Autosize and PicturesizeMode properties of the image
control

Regards,
Peter T
 
Back
Top