Wisselen Kolommen - Rijen in een Marco

[janus1janus1]

LS
Om een juiste grafiek van een Pivot te krijgen moet ik de kolommen en Rijen wisselen. In een grafiek kan je heel gemakkelijk bij select data deze wissel uitvoeren. Na opnemen in een macro werkt deze niet.
Ook het handmatig verwisselen van kolom-Rij in de Pivot zelf gaat goed, maar na opnemen struikelt deze.
Weet iemand hier misschien een oplossing voor om dit in een script op te kunnen nemen?
Alvast dank voor de genomen moeite.
gr Janus

ter illustratie:
mogelijkheid 1: (werkt niet)
ActiveChart.SetSourceData Source:=Range("Pivot1!$B$10:$J$17")
ActiveChart.PlotArea.Select
ActiveChart.SetSourceData

mogelijkheid 2: (werkt niet)
ActiveSheet.PivotTables("Pivot1").PivotFields("Month").Orientation = _
xlHidden
ActiveSheet.PivotTables("Pivot1").PivotFields("Supplier").Orientation = _
xlHidden
With ActiveSheet.PivotTables("Pivot1").PivotFields("Supplier")
.Orientation = xlColumnField
.Position = 1
End With
With ActiveSheet.PivotTables("Pivot1").PivotFields("Month")
.Orientation = xlRowField
.Position = 1
End With

mogelijkheid 3: (werkt niet)
With ActiveSheet.PivotTables("Pivot1").PivotFields("Supplier")
.Orientation = xlColumnField
.Position = 2
End With
With ActiveSheet.PivotTables("Pivor1").PivotFields("Month")
.Orientation = xlRowField
.Position = 1
End With

 

[janus1janus1]

opgelost

Beginnersfout.
Ik had in het script eerst een andere pivot geselecteerd, &^%(*^(*&*Q#

in ieder geval dank voor de genomen moeite!