Ciao a tutti!
Mi sto cervellando con un problema che forse puo essere banale dato che ho poca dimestichezza con le macro.
Ho creato una macro che consente di creare dei grafici partendo da una tabella con numero di righe variabile. Per intenderci 1grafico = 1riga (ovviamente la prima riga della tabella è uguale per tutti i grafici). Questo pezzo della macro funziona, ciò che nn riesco a fare è spostare il grafico uno sotto l'altro (in automatico vengono sovrapposti) e modificare la scala dell'asse X e ridimensionare la larghezza.
Qualcuno può aiutarmi?
Vi posto il pezzo dell macro funzionante
Sub grafico()
'
' Grafico Macro
'
'
Dim x, ChartCount As Integer
n_componenti = Range("a" & Rows.Count).End(xlUp).Row
For x = 24 To n_componenti
Range("B1:G1,B" & x & ":" & "G" & x).Select
Range("B" & x).Activate
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlBarClustered
ActiveChart.SetSourceData Source:=Range( _
"'SEM Graph'!$B$1:$G$1,'SEM Graph'!$B" & x & ":" & "$G" & x)
ActiveChart.ApplyLayout (4)
DA QUI IN POI NON FUNZIONA
'ActiveChart.Name = "grafico"
'ActiveChart.Height = 10
'ActiveSheet.Shapes("Grafico1").Height = 144
'ActiveSheet.Shapes("Grafico n_grafico").IncrementLeft 226.0714173228
'ActiveSheet.Shapes("Grafico n_grafico").IncrementTop 127.5
Next x
End Sub
Grazie per l'aiuto