Primero rellenas las etiquetas del graph, es decir, lo que es la "leyenda", y pones a 0 los datos del Graph (de paso)´ Muchos cajeros, un sólo dato. grafico_frm.grafico.ColumnCount = (Len(x2) - 1) / 3 ReDim label_y(1 To grafico_frm.grafico.ColumnCount)´ Toma nota de las etiquetas (y) i = 1 For i1 = 0 To lista_cajeros.ListCount - 1 If lista_cajeros.Selected(i1) Then label_y(i) = lista_cajeros.List(i1) ´ Nombre de las leyendas grafico_frm.grafico.Column = i grafico_frm.grafico.ColumnLabel = label_y(i) i = i + 1 If i = (grafico_frm.grafico.ColumnCount + 1) Then Exit For End If End If Next i1 For i1 = 0 To lista_datos.ListCount - 1 If lista_datos.Selected(i1) Then x = "´" + lista_datos.List(i1) + "´" Exit For End If Next i1
|