il problema è che la macro non sono riuscito a farla!!
comunque, questa è una macro registrata da excel per la creazione di due grafici;già qui c'è il problema che il comando "ActiveSheet.Shapes("Grafico 9").IncrementTop 249#" non funziona in quanto il grafico cambia nome di volta in volta,e quindi mi dice che non esiste!!il ciclo for ho provato a farlo ma non ce l'ho fatta...
Sub Macro1()
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Foglio1").Range("A1:/D1"), PlotBy _
:=xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:="Foglio1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "prova 1"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
ActiveWindow.Visible = False
Windows("Cartel1").Activate
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Foglio1").Range("A2:/D2"), PlotBy _
:=xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:="Foglio1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "prova 2"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
////// ActiveSheet.Shapes("Grafico 9").IncrementTop 249#
End Sub