grafico non si chiude

[raimea]

ciao
ho una macro x creare un grafico tramite pulsante ---> e funzina
con lo stesso pulsante poi dovrebbe chiudermi il grafico
ma invece non mi si chiude piu'

in un altro file funziona qui non so perche' non chiude il grafico

si tratta della macro: graficodiario, nel fgl diario ,nel modulo 3
-------

Codice: Seleziona tutto

Sub graficodiario()

 
ActiveSheet.Unprotect
If gg = 0 Then

'---------------------------
   If [c7] = "" Then
         MsgBox "il diario non ha nessuna data...", vbCritical
       
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingColumns:=True, AllowFormattingRows:=True
       
      Exit Sub
    End If
'-----------------------------
    Dim r
    ActiveSheet.Shapes.Range(Array("Rounded Rectangle 10")).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "Graf. Nascondi"
   
   
    If Cells(7, 3) = "" Then Exit Sub    ' cell c7
    r = Cells(2, 16) + Cells(3, 16) + 3  ' celle p2 e p3
   
    ActiveSheet.ChartObjects("Grafico 14").Visible = True
    ActiveSheet.ChartObjects("Grafico 14").Activate

'--dp ci sono i valori--

    ActiveChart.SeriesCollection(1).Values = "='diario1'!$bd$7:$bd$" & r + 3  '3 numero da variare secondo i casi
    ActiveChart.SeriesCollection(1).XValues = "='diario1'!$bb$7:$bc$15" & r + 3
   
    Cells(1, 1).Select
    gg = 1
Else
    ActiveSheet.Shapes.Range(Array("Rounded Rectangle 10")).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "Graf. Vedi"
   
    ActiveSheet.ChartObjects("Grafico 14").Visible = False
    Cells(1, 1).Select
    gg = 0


End If

       
Range("a20").Select
End Sub

------
vi allego il file
https://www.dropbox.com/s/hn5op5bxa83ad3k/test.rar?dl=0

grazie
ciao

[Anthony47]

La tua macro contiene, all'inizio

Codice: Seleziona tutto

If gg = 0 Then


Ma la variabile gg non e' dichiarata da nessuna parte, quindi assume il significato standard di una variabile che esiste solo durante l'esecuzione della Sub graficodiario, per cui l'impostazione che fai a un certo punto

Codice: Seleziona tutto

    gg = 1

viene perduta all'esecuzione di End Sub, in modo che la If gg = 0 risultera' sempre "Vera"

Dichiara la variabile gg in testa al modulo e avrai l'effetto flip-flop:

Codice: Seleziona tutto

Dim gg As Long               'Rigorosamente in testa al Modulo

Oppure, se serve anche in altri moduli, la devi dichiarare tramite Public (invece che Dim), sempre in testa a un Modulo standard.
Per informazioni, guarda l'help on line del vba alla voce "Area di validità e visibilità"

Ciao

keywords
area validità variabile validita' variabile non mantiene il valore

[raimea]

ciao
risolto,
mancava infatti la dichiarazione ad inizio modulo

grazie