Picture change

[rbyrd023]

Hello! I have a form that I want the end user to be able to change the picture (logo). I've gotten the open file dialog box but I cannot complete the "transfer"

Could someone please help!

[Leith Ross]

Hello rbyrd023,

Here is the corrected code...

Sub changelogo_Click()

  cngpic = Application.GetOpenFilename(Title:="Select an image to load", FileFilter:="Picture Files *.gif(*.gif),")

  If cngpic = False Then
    MsgBox "You did not load an image"
    Exit Sub 
  End If
   
  companylogo.Picture = LoadPicture(cngpic)

End Sub

[rbyrd023]

Wow! Thank you! That seemed very easy! Now lets say I wanted that same pic to show on a worksheet. how would you code that!

[Leith Ross]

Hello rbyrd023,

I am not sure this what you want, but this code will set the background for the worksheet

  cngpic = Application.GetOpenFilename(Title:="Select an image to load", FileFilter:="Picture Files *.gif(*.gif),")

  If cngpic = False Then
    MsgBox "You did not load an image"
    Exit Sub 
  End If
   
  ActiveSheet.SetBackgroundPicture cngpic

.

[rbyrd023]

I have attached another file with what I want.

Thanks for your help!

[rbyrd023]

Anyone find anything? I worked on it all night and couldn't think of anything! Whats worse is it's prob. something very simple!