Pivot Chart Excel VBA und Tabelle

[AaronP91]

Hey!

ich habe mal wieder eine Frage bezüglich der Makroprogrammierung.
Ich habe eine große Tabelle, mache daraus mehrere PivotCharts und möchte nun folgendes dauerhaft einstellen:

Achsenbeschriftung der x-Achse
Position des Charts
Größe des Charts

Außerdem möchte ich einen Teil der Ergebnisse anderweitig als Tabelle anzeigen und habe dabei das Problem, dass die Überschriften teilweise gleich sind und darum eine Zahl als Erweiterung bekommen.

Auch der Makrorecorder hilft mir hierbei leider nicht. Für die Achsenbeschriftung gibt er folgendes aus:
    ActiveSheet.ChartObjects("Diagramm 1").Activate
    ActiveChart.SetElement (msoElementPrimaryValueAxisTitleAdjacentToAxis)
    ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = "Kosten pro Stunde"
    Selection.Format.TextFrame2.TextRange.Characters.Text = "Kosten pro Stunde"
    With Selection.Format.TextFrame2.TextRange.Characters(1, 17).ParagraphFormat
        .TextDirection = msoTextDirectionLeftToRight
        .Alignment = msoAlignCenter
    End With
    With Selection.Format.TextFrame2.TextRange.Characters(1, 17).Font
        .BaselineOffset = 0
        .Bold = msoTrue
        .NameComplexScript = "+mn-cs"
        .NameFarEast = "+mn-ea"
        .Fill.Visible = msoTrue
        .Fill.ForeColor.RGB = RGB(0, 0, 0)
        .Fill.Transparency = 0
        .Fill.Solid
        .Size = 10
        .Italic = msoFalse
        .Kerning = 12
        .Name = "+mn-lt"
        .UnderlineStyle = msoNoUnderline
        .Strike = msoNoStrike
    End With


In der Datei im Anhang findet ihr beides näher dargestellt.


Vielen Dank

Aaron