Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<
Microsoft Office 2003-2019 => Excel => Thema gestartet von: AaronP91 am April 13, 2015, 09:56:25 Vormittag
-
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