Nascondere Casella combinata

[marco_budinPartecipante marco_budin Karma: 2 pts]

buongiorno a tutti,

torno con un vorrei far scomparire e comparire delle caselle combinate... Sono riuscito a far nascondere/ scoprire pulsanti.. se schiacciate infatti la tendina a discesa in menu 1 "A discesa 11" i pulsanti scompaiono..

sub visibile
Sheets("Menu 1").Shapes("Pulsante 24").Visible = True
end sub

Sub nascosto
Sheets("Menu 1").Shapes("Pulsante 24").Visible = False
end sub

 

con la casella combinata "A discesa 20" in Menu 1 ? ce un codice che posso utilizzare per far scomparire/ ricomparire le tendine?

vi ringrazio anticipatamente per il vostro prezioso aiuto

saluti

Marco

Allegati:

You must be logged in to view attached files.

[marco_budinPartecipante marco_budin Karma: 2 pts]

io pensavo di fare così:

sub visibile
Sheets("Menu 1").Shapes("A Discesa 20").Visible = True
end sub

ma così non funziona...

saluti e grazie

Marco

[tanimonPartecipante tanimon Karma: 16 pts]

ciao,

il comando per renderla invisibile è

Sheets("Menu 1").Shapes("A Discesa 20").Visible = False

la imposti a True per farla ricomparire.

Ora devi stabilire il criterio/Evento a cui abbinare le 2 singole istruzioni a secondo della necessità.

Io la farei visibile di default, tramite l'Evento Worksheet_Activate, di modo che sia visibile ogni volta che attivi il foglio "Menu 1" ( eviterei spazi nei nomi dei fogli),  e crerei la macro per nasconderla da utilizzare al bisogno.

Ciao

Frank

[Autore]

Articoli