problema macro su excel

Question

Salve , ho creato una macro con la seguente riga in vba:

ActiveChart.FullSeriesCollection(2).Points(127).Select

127 è il numero di riga che ho selezionato a mano durante la creazione della macro, posso sostituire il numero 127 con una cella es. A3 ??

Questa operazione mi serve per fare in modo che il numero possa essere dinamico.

Grazie

Answer 1

Salve, grazie infinite per il veloce aiuto.

ho provato ad inserire quanto suggerito , ma quando lancio la macro ottengo solo l'apertura del file personal.

Sub marcatore()

' marcatore Macro

' Scelta rapida da tastiera: CTRL+m

Dim i As Integer

i = CInt(Range("M1"))

ActiveSheet.ChartObjects("Grafico 5").Activate 

ActiveChart.FullSeriesCollection(2).Select 

**ActiveChart.FullSeriesCollection(2).Points(i).Select** 

Selection.MarkerStyle = 2 

Selection.MarkerSize = 6 

Selection.MarkerSize = 7 

Selection.MarkerSize = 8 

Selection.MarkerSize = 9 

Selection.MarkerSize = 10 

Selection.MarkerSize = 11 

Selection.MarkerSize = 12 

Selection.MarkerSize = 13 

With Selection.Format.Line 

    .Visible = msoTrue 

    .ForeColor.ObjectThemeColor = msoThemeColorText1 

    .ForeColor.TintAndShade = 0 

    .ForeColor.Brightness = 0 

    .Transparency = 0 

End With 

With Selection.Format.Fill 

    .Visible = msoTrue 

    .ForeColor.ObjectThemeColor = msoThemeColorBackground1 

    .ForeColor.TintAndShade = 0 

    .ForeColor.Brightness = 0 

    .Transparency = 0 

    .Solid 

End With 

End Sub

Answer 2

Ciao,

bentrovato nella community Microsoft, piacere di aiutarti, sono Daniele un consulente indipendente,

Per passare un valore dinamico, prima prendi il valore dalla cella A3 e poi lo passi alla funzione points

Dim i As Integer
i = CInt(Range("A3"))
ActiveChart.FullSeriesCollection(2).Points(i).Select

Dovrebbe funzionare, fammi sapere.

Answer 3

Ciao Phoenix TRE,

Salve , ho creato una macro con la seguente riga in vba:

ActiveChart.FullSeriesCollection(2).Points(127).Select

127 è il numero di riga che ho selezionato a mano durante la creazione della macro, posso sostituire il numero 127 con una cella es. A3 ??

Questa operazione mi serve per fare in modo che il numero possa essere dinamico.

Prova qualcosa del genere:

ActiveChart.FullSeriesCollection(1).Points(ActiveSheet.Range("A3").Value).Select

===

Regards,

Norman