Problem med script har testat nedan Range("Q14:U18") den funkar men när jag vill dela upp den så ballar det ur
ActiveSheet.Shapes.AddChart.Select
With ActiveChart
' .ChartType = xlLine
' .ChartType = xlBarStacked
.SetSourceData Source:=Sheets("GraphGeneration").Range("Q14:U18") 'Sätter källan inkl etiketter
Här skulle jag vilja kunna lägga in värden från olika rader , scenario raden D , F , H och D är rubrik raden
.SetSourceData Source:=Sheets("GraphGeneration").Range("D14:D18") 'Sätter källan inkl etiketter
.SetSourceData Source:=Sheets("GraphGeneration").Range("F14:F18") 'Sätter källan inkl etiketter
.SetSourceData Source:=Sheets("GraphGeneration").Range("H14:H18") 'Sätter källan inkl etiketter
.SetElement (msoElementLegendRight)
.HasTitle = True
'.HasTitle = False
'Sätter dimension & plats:
.Parent.Top = 1244 'koordinat top av diagram
.Parent.Left = 847 'koordinat västersätt av diagram
.Parent.Height = 300
.Parent.Width = 600
.ChartTitle.Text = "Här ligger Diagramrubrik 2" & intGraphStart