ich habe einen Code, der in der 2010 er Excel-Version gut funktioniert, aber in der 2003er Version noch hakt.
Unter anderem gibt es Probleme beim formatieren von Pivot Charts (die fettmarkierte Zeile wird _
als Fehler dargestellt):
Sub prcFormatPivotChart(ByVal strChartObj As String)
Dim cllActiveCell As Range
Set cllActiveCell = ActiveCell
ActiveSheet.ChartObjects(strChartObj).Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).ChartType = xlColumnClustered
ActiveChart.SeriesCollection(2).AxisGroup = 1
ActiveChart.SeriesCollection(2).Select
ActiveChart.SeriesCollection(2).ChartType = xlLineMarkers
ActiveChart.SeriesCollection(2).AxisGroup = 2
ActiveChart.SeriesCollection(3).Select
ActiveChart.SeriesCollection(3).ChartType = xlLineMarkers
ActiveChart.SeriesCollection(3).AxisGroup = 2
ActiveChart.SeriesCollection(4).Select
ActiveChart.SeriesCollection(4).ChartType = xlLineMarkers
ActiveChart.SeriesCollection(4).AxisGroup = 2
ActiveChart.Axes(xlValue, xlSecondary).Select
ActiveChart.Axes(xlValue, xlSecondary).HasTitle = True
ActiveChart.Axes(xlValue, xlSecondary).AxisTitle.Select
Selection.Orientation = xlHorizontal
Selection.Orientation = -9
Selection.Orientation = xlDownward
ActiveChart.Axes(xlValue, xlSecondary).AxisTitle.Select
ActiveChart.Axes(xlValue, xlSecondary).AxisTitle.Text = "Deckungsbeitrag []"
Selection.Format.TextFrame2.TextRange.Characters.Text = "Deckungsbeitrag []"
With Selection.Format.TextFrame2.TextRange.Characters(1, 19).ParagraphFormat
.TextDirection = msoTextDirectionLeftToRight
.Alignment = msoAlignCenter
End With
With Selection.Format.TextFrame2.TextRange.Characters(1, 19).Font
.BaselineOffset = 0
.Bold = msoTrue
.NameComplexScript = "Calibri"
.NameFarEast = "Calibri"
.Fill.Visible = msoTrue
.Fill.ForeColor.RGB = RGB(0, 0, 0)
.Fill.Transparency = 0
.Fill.Solid
.Size = 10
.Italic = msoFalse
.Kerning = 12
.Name = "Calibri"
.UnderlineStyle = msoNoUnderline
.Strike = msoNoStrike
End With
cllActiveCell.Select
Set cllActiveCell = Nothing
End Sub
Hat jemand eine Idee was stattdessen dort stehen könnte?Sind weitere Fehler für euch auf Anhieb sichtbar?Würde sonst die Fehler nach und nach versuchen zu beheben...
Hoffe sehr, mir kann jemand weiterhelfen.
Viele Grüße
Hendrik