 
			
				27/04/2006, 01:12
			
			
			     |  
        |     |    |    Fecha de Ingreso: enero-2006  
						Mensajes: 166
					  Antigüedad: 19 años, 9 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
               |