
Sub Macro3()
' Macro3 Macro
'
'
ActiveSheet.Shapes.AddChart2(240, xlXYScatterSmooth).Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(1).Name = "=""v"""
ActiveChart.FullSeriesCollection(1).XValues = "==Cartel_Grafici_Prova.xlsm!Hbulk"
ActiveChart.FullSeriesCollection(1).Values = "==Cartel_Grafici_Prova.xlsm!Tbulk"
End Sub
|
s = Sheets("Admin").Cells(17,5).Value
ActiveChart.FullSeriesCollection(c).XValues = Sheets("Admin").Range(s) |
