Office: PivotChart per Code verändern

Guten Morgen an alle,
habe ein ziemlich blödes Problem:

Habe ein Pivotchart mit dem ich Daten von Lieferante darstelle.

In diesen Daten sind auch Kapazitäten enthalten.
Diese Kapas sollen im Säulendiagramm als Linie angezeigt werden.

habe bereits herausgefunden wie ich die Farbe per code festlege und verzweifele ich daran die Daten als Linie zu formatiern.

folgende benutze ich um die farbe festzulegen:

Code:
On Error Resume Next
For a = 0 To 10
With Form.ChartSpace.Charts(a)
On Error Resume Next
.SeriesCollection("Kapazität intern").Interior.Color = RGB(0, 0, 255)

End With
Next
End Sub

Aber wie kann ich ihm jetzt sagen das "Kapazität intern eine Linie oder eine Fläche sein soll???

Hilfe.....ich bin echt am verzweifel.

Habe schon ein Macro über Excel aufgezeichnet, funktioniert aber nicht......

Hier der Code:
Code:
ActiveChart.SeriesCollection(108).Select
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveChart.SeriesCollection(108).ChartType = xlArea
ActiveChart.SeriesCollection(111).Select
ActiveSheet.ChartObjects("Diagramm 2").Activate
End Sub