Beschriftung Diagrammachsen mit VBA formatieren

edv-opa · 27. April 2018

Hallo Freunde,

obwohl ich ein "alter Hase" bin, habe ich Probleme, die Achsenbeschriftung eines EXCEL2016-Diagramms mittels Makro zu ändern.

Ich habe den Vorgang mit Makroaufzeichnung aufgenommen, erhalte jedoch beim Wiederabspielen Abbruch mit Fehlermeldung. Wie ist so etwas möglich?

Mir kam das aufgezeichnete Makro seltsam vor wg. Ausdrücken wie

With Selection.Format.TextFrame2.TextRange.Font

.Size = 8

End With

Mein Eindruck ist, daß das früher einfacher ging!?

Gruß!

Friedrich

edv-opa

Danke, auch dieses Problem ist gelöst! Alles läuft jetzt gut.

Friedrich

edv-opa

Der Hinweis auf das Stichwort

TickLabels

hat mir gefehlt, damit funktioniert es - Danke! Mein diesbezüglicher Code-Abschnitt im Gesamt-Modul sieht jetzt folgendermaßen aus:

With ActiveChart.Axes(xlCategory)

.HasTitle = True

With .AxisTitle

.Caption = "Datum"

.Font.Name = "Arial"

.Font.Size = 10

End With

With .TickLabels.Font

.Size = 8

End With

End With

Jetzt geht es aber weiter; denn die Diagrammkurven haben zu dicke Marker und Linien, sodaß man sie nicht unterscheiden kann. Das geht wohl mit SeriesCollection(n), MarkerSize und Format.Line.Weight usw.

Schade, daß die Makroaufzeichnung nicht unbedingt hilft.

Friedrich

Claus Busch

Hallo,

probiere es mal so:

Dim cht As Chart

Dim chtAX As Axes

Set cht = Sheets("Tabelle1").ChartObjects(1).Chart

Set chtAX = cht.Axes

'X-Achse

chtAX(xlCategory).TickLabels.Font.Size = 9

'Y-Achse

chtAX(xlValue).TickLabels.Font.Size = 9

Claus

Andreas Killer

Die Intellisense sollte Dir weiterhelfen, Extras\Optionen:

Dann drück mal F2, klick mit rechts irgendwo in den Objektkatalog und lass Dir alles anzeigen:

Dann siehst Du direkt beim Programmieren welche Objekte generell zur Verfügung stehen.

Andreas.

Claus Busch

Hallo Friedrich,

passe folgendes Beispiel für dich an:

Dim i As Integer

Dim cht As Chart

Dim chtSC As SeriesCollection
Set cht = Sheets("Tabelle1").ChartObjects("Diagramm 1").Chart

Set chtSC = cht.SeriesCollection

For i = 1 To chtSC.Count

   With chtSC(i)

      .MarkerBackgroundColorIndex = i + 5

      .MarkerForegroundColorIndex = i + 6

      .MarkerSize = 5

      With .Border

         .ColorIndex = i + 4

         .LineStyle = xlContinuous

         .Weight = xlMedium

      End With

   End With

Next

Claus

Hi,

willkommen im Windows Forum!

Beschriftung Diagrammachsen mit VBA formatieren - Similar Threads - Beschriftung Diagrammachsen VBA	Forum	Datum
Alle Beschriftungen löschen Alle Beschriftungen löschen: Wenn ich eine neue Beschriftung einfügen möchte, beginnt es automatisch mit "Abbildung 9". Ich möchte aber, dass es mit "1" beginnt.	Microsoft Office	24. Februar 2025
Diagramme per VBA Formatieren Diagramme per VBA Formatieren: Moin,Ich würde gern die Diagramme "Result" automatisch entsprechend der vorgegebenen Farbe einfärben. Die Diagramme sollen dabei aber vollständig auf den arrays basieren und sich vollkommen...	Microsoft Office	29. November 2023
Word: Beschriftungen können Word: Beschriftungen können: Hallo Zusammen, ich habe folgendes Problem in Word: Um Tabellen, Abbildungen und Formeln zu beschriften nutze ich die Funktion "Referenzen - Beschriftung einfügen", sodass die Beschriftungen...	Microsoft Office	7. September 2023
Grenzen der Diagrammachsen nicht änderbar Grenzen der Diagrammachsen nicht änderbar: Hallo,bei Diagrammen, die ich in Powerpoint Office 365 erstelle, kann ich unter dem Menüpunkt "Achsenoptionen" die Grenzen Min, Max nicht ändern. Hinter den Eingabefeldern findet sich der...	Microsoft Office	12. Juli 2021
Klammer vor Beschriftung wird in Beschriftung als Bezeichnung aufgenommen Klammer vor Beschriftung wird in Beschriftung als Bezeichnung aufgenommen: Hallo, in einer wissenschaftlichen Arbeit muss ich Formeln in der Form Kapitelnummer.Formelnummer im Kapitel beschriften. Also wie beim Beispiel unten in Kapitel 2 Formel 13. [IMG] Ich habe...	Microsoft Office	6. Juli 2020
MS Access VBA Fehler beim Formatieren von Datums-Variablen MS Access VBA Fehler beim Formatieren von Datums-Variablen: In VBA wird nur eine von zwei Variablen, die als Datum/Uhrzeit formatiert werden soll auf das gewünschte Format gebracht. Dadurch kann ich wegen Datentypenkonflikt die Tabellen nicht auslesen....	Microsoft Office	7. November 2017
Formatieren Formatieren: Wie formatiere ich meinen Computer?	Allgemeines	26. Oktober 2017

Beschriftung Diagrammachsen mit VBA formatieren