how to use the same button for image dispaly and hiding the image

[kailashramuu]

Hi..


Can anyone help me to display a image when we click on the button and that image should disappear when we again click on the same button.


Pls.....


Regards
Kailash

 

[Sektor]

Try Togglebutton.

 

[MickG]

Try:-

[COLOR="Navy"]Sub[/COLOR] MG16May13
[COLOR="Navy"]With[/COLOR] ActiveSheet.Shapes("Picture 2")
    .Visible = Not .Visible
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]With[/COLOR]
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[kailashramuu]

thank u for ur reply..


Can u explain .. what does the line With
ActiveSheet.Shapes("Picture 2") means?

 

[Sektor]

It's name of Shape object containing your picture. When you select image, the name appears on the left side of formula bar.

 

[kailashramuu]

sorry ,


i will explain my requirement full..


I want to display the graph chart of every month in a sheet..

For this.. When i click on jan BUTTON It should DISPLAY jan chart then if i click on Feb BUTTON it should display the feb chart but it should disappear that jan chart.


Thanks And REgards
Kailash

 

[MickG]

You could use something like this for each Chart Button.

[COLOR="Navy"]Sub[/COLOR] MG16May32
[COLOR="Navy"]Dim[/COLOR] Cht [COLOR="Navy"]As[/COLOR] ChartObject
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Cht [COLOR="Navy"]In[/COLOR] ActiveSheet.ChartObjects
'[COLOR="Green"][B]If Cht.Name = "Chart 4" Then'Option for Chart Name[/B][/COLOR]
[COLOR="Navy"]If[/COLOR] Cht.Chart.ChartTitle.Characters.text = "Jan" [COLOR="Navy"]Then[/COLOR]
    Cht.Visible = True
[COLOR="Navy"]Else[/COLOR]
    Cht.Visible = False
[COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]Next[/COLOR] Cht
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[emilyph]

Try:-

[COLOR=Navy]Sub[/COLOR] MG16May13
[COLOR=Navy]With[/COLOR] ActiveSheet.Shapes("Picture 2")
    .Visible = Not .Visible
[COLOR=Navy]End[/COLOR] [COLOR=Navy]With[/COLOR]
[COLOR=Navy]End[/COLOR] [COLOR=Navy]Sub[/COLOR]

Regards Mick

Hi Mick, your codes work. However, when i save the file and transfer it into a thumbdrive, the codes completely don't work anymore. As in no images will be displayed.

Do you know how to display images from worksheet A to worksheet B with a click of a button? thanks you

 

[MickG]

I don't see any reason for it not working after storage on a Flash Drive, :- The files the File!!!!
If you record a macro to copy & paste a picture to another sheet that will give you the code.
If you want to hide and unhide the picture on another sheet before opening ??
Modification to the original code should do:-

With Sheets("sheet2").Shapes("Picture 3")
    .Visible = Not .Visible
End With