Ver Mensaje Individual
  #2 (permalink)  
Antiguo 27/04/2006, 01:12
Avatar de niconico
niconico
 
Fecha de Ingreso: enero-2006
Mensajes: 166
Antigüedad: 18 años, 4 meses
Puntos: 0
ya di con la solucion
Código:
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then ActiveSheet.ChartObjects("Gráfico 1").Visible = True
If CheckBox1.Value = False Then ActiveSheet.ChartObjects("Gráfico 1").Visible = False
End Sub