Picture Problems

[Guest]

Just wondering I have multiple worksheets and on the main worksheet screen is
my invoice page, all the rest is programming related. Now depeneding on the
customer I want them to be able to click on a number and then their logo come
onto the page at the bottom of the screen. I have the logos set on a
different page, but just can convert them over to the main page. I think it
has something to do with the cells, I cant make my picture into one cell, its
always picture #1 or picture #2. Any suggestions or help with this one?

 

[Guest]

I would do something a little different than what you are trying. Put all
the pictures on the main worksheet. Then make them visible of invisible.
Try code like this

Sub visablepicture()

Picturenumber = Val(InputBox("enter Picture Number: "))
For i = 1 To 8
If Picturenumber = i Then
Worksheets("Sheet1"). _
Shapes("Picture " & i).Visible = True
Else
Worksheets("Sheet1"). _
Shapes("Picture " & i).Visible = False
End If
Next i

End Sub