visualizzarenascondere immagini

Hai un problema con Excel?

Nuova discussione

visualizzare/nascondere immagini
di FA-BA (utente non iscritto) data: 25/02/2017 15:30:33
Ho provato questa ma non va assolutamente.Come dovrei fare se una cella ha un determinato valore far apparire o nascondere una immagine?
Sub n1() If Sheets("GIOCO").Range("h19") = "1" Then immagine 8.Visible.false End Sub

di patel data: 25/02/2017 16:05:18
prova così

Sub n1()
If Sheets("GIOCO").Range("h19") = "1" Then Sheets("GIOCO").Shapes("immagine 8").Visible.false
End Sub

di FA-BA (utente non iscritto) data: 25/02/2017 16:14:57
LA PROVO E TI farò sapere.

di FA-BA (utente non iscritto) data: 25/02/2017 16:34:23
Per lo scopo attuale mi serve in questo modo ma dice NECESSARIO OGGETTO.

Declare Function sndPlaySound32 Lib "WINMM.DLL" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Sub Avviare_Gioco()
'EFFETTI SONORI
indirizzo = ActiveWorkbook.Path
n = Sheets("GIOCO").Range("AF70")
fname = indirizzo & "Voci(PC)AVVIO" & n & ".wav"
Call sndPlaySound32(fname, 0)
'visualizza gioco
Call Colonna_sonora
Sheets("GIOCO").Visible = True
Sheets("MENU").Visible = False
Sheets("GIOCO").Select
Range("H19").Select
Sheets("GIOCO").Shapes("immagine 8").Visible.false
Sheets("GIOCO").Shapes("immagine 9").Visible.false
Sheets("GIOCO").Shapes("immagine 10").Visible.false
Sheets("GIOCO").Shapes("immagine 11").Visible.false
Sheets("GIOCO").Shapes("immagine 12").Visible.false
Sheets("GIOCO").Shapes("immagine 13").Visible.false
Sheets("GIOCO").Shapes("immagine 14").Visible.false
Sheets("GIOCO").Shapes("immagine 15").Visible.false
Sheets("GIOCO").Shapes("immagine 16").Visible.false
Sheets("GIOCO").Shapes("immagine 17").Visible.false
Sheets("GIOCO").Shapes("immagine 18").Visible.false
Sheets("GIOCO").Shapes("immagine 19").Visible.false
Sheets("GIOCO").Shapes("immagine 20").Visible.false
Sheets("GIOCO").Shapes("immagine 21").Visible.false
Sheets("GIOCO").Shapes("immagine 22").Visible.false
Sheets("GIOCO").Shapes("immagine 23").Visible.false
End Sub

di FA-BA (utente non iscritto) data: 25/02/2017 16:37:12
FATTO.... ECCO LA CORREZIONE

Declare Function sndPlaySound32 Lib "WINMM.DLL" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Sub Avviare_Gioco()
'EFFETTI SONORI
indirizzo = ActiveWorkbook.Path
n = Sheets("GIOCO").Range("AF70")
fname = indirizzo & "Voci(PC)AVVIO" & n & ".wav"
Call sndPlaySound32(fname, 0)
'visualizza gioco
Call Colonna_sonora
Sheets("GIOCO").Visible = True
Sheets("MENU").Visible = False
Sheets("GIOCO").Select
Range("H19").Select
Sheets("GIOCO").Shapes("immagine 8").Visible = False
Sheets("GIOCO").Shapes("immagine 9").Visible = False
Sheets("GIOCO").Shapes("immagine 10").Visible = False
Sheets("GIOCO").Shapes("immagine 11").Visible = False
Sheets("GIOCO").Shapes("immagine 12").Visible = False
Sheets("GIOCO").Shapes("immagine 13").Visible = False
Sheets("GIOCO").Shapes("immagine 14").Visible = False
Sheets("GIOCO").Shapes("immagine 15").Visible = False
Sheets("GIOCO").Shapes("immagine 16").Visible = False
Sheets("GIOCO").Shapes("immagine 17").Visible = False
Sheets("GIOCO").Shapes("immagine 18").Visible = False
Sheets("GIOCO").Shapes("immagine 19").Visible = False
Sheets("GIOCO").Shapes("immagine 20").Visible = False
Sheets("GIOCO").Shapes("immagine 21").Visible = False
Sheets("GIOCO").Shapes("immagine 22").Visible = False
Sheets("GIOCO").Shapes("immagine 23").Visible = False
End Sub

Vuoi Approfondire?