Query | Listbox

[thinksriniii]

HI guys,

Can someone help me with this. I have inserted a listbox and based on the value selected a picture should be poped. I have searched the forum and got the code below. But it is throwing an error message "object required"

Private Sub ListBox1_Change()
If ListBox1.Value = "x" Then
Pictures("Picture 1").Visible = True
Else
Pictures("Picture 1").Visible = False
End If
End Sub

Then i modified it to

Sub ListBox1_Change()

If listbox1.Value = "1" Then
activesheets.Shapes("Picture 1").Visible = True
Else
activesheets.Shapes("Picture 1").Visible = False
End If
End Sub

still it is not working and the same error is thrown . can someone help

 

[thinksriniii]

Jus a information that i just inserted the test box in the sheet. BUt, i did not add any user form. Is that causing the error?

Dave

 

[dave3009]

Hi Dave

activesheets should be Activesheet

 

[thinksriniii]

Dave,

Still throwing the same error "Object required". Just to reaffirm.. the picture 1 is present for sure..

Sub ListBox1_Change()
If listbox1.Value = "1" Then
ActiveSheet.Shapes("Picture 1").Visible = True
Else
ActiveSheet.Shapes("Picture 1").Visible = False
End If
End Sub

Dave

 

[dave3009]

I have this working

Private Sub ListBox1_Change()
If ListBox1.Value = "1" Then
ActiveSheet.Shapes("Picture 1").Visible = True
Else
ActiveSheet.Shapes("Picture 1").Visible = False
End If
End Sub

Picture 1 is there as is the number 1 option. Is Picture 1 on the active sheet?

EDIT:And the Sub needs to be Private Sub

 

[thinksriniii]

Yes Dave.. Its on the active sheet

Think this line is causing problem. THis is highlight when the error is thrown

If listbox1.Value = "1" Then

Thanks for your help

 

[thinksriniii]

Am really confused why this simple code is not working..!!

 

[Norie]

Where exactly is the code and the controls you want to work with located?

 

[dave3009]

Hi

Use the ListBox from the ActiveX content not the FormControls

Regards


Dave

 

[thinksriniii]

Why so. How they are different? Please brief.

Cheers,
Dave