Office: Excel mehrere Diagramme Skalierung anpassen

interface · 12. September 2016

Hi,

habe einmal in einem Excel Shett mehrere Diagramme.
Eines kann ich mittels Makro anpassen.

PHP:

Sub Makro3() ActiveSheet.ChartObjects("Diagramm 1").Activate ActiveChart.Axes(xlValue).Select ActiveChart.Axes(xlValue).MaximumScale = 44000 'Maximum ActiveChart.Axes(xlValue).MinimumScale = 0 'Minimum ActiveChart.Axes(xlValue).MajorUnit = 2000 'Hauptinterval ActiveChart.Axes(xlValue).MinorUnit = 1000 'Hilfsinterval End Sub

:)

mathieu_91 · 14. September 2016

Hallo,

For Schleife durch die ChartObjects.

Code:

Sub test()
Dim ws As Worksheet
Dim shp As ChartObject
Dim Diagramm As String
Dim MyChart As Chart

Set ws = ThisWorkbook.activesheet
With ws
For Each shp In .ChartObjects
Diagramm = shp.Name
Set MyChart = ws.ChartObjects(Diagramm).Chart
With MyChart
.MaximumScale = 44000
.MinimumScale = 0
.MajorUnit = 2000
.MinorUnit = 1000
End With
Next
End with
Set ws=nothing
End sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Luschi · 14. September 2016

Hallo interface,

so geht es kürzer - warum erst ein Objekt erzeugen, dann daraus den Namen ermitteln und mit dieser Information ein neues Objekt machen? Code:

Sub MacheMal()
Dim ws As Worksheet, cht As ChartObject

Set ws = ThisWorkbook.Worksheets("Tabelle1")
For Each cht In ws.ChartObjects
With cht.Chart.Axes(xlValue)
.MaximumScale = 44 'Maximum
.MinimumScale = 0 'Minimum
.MajorUnit = 20 'Hauptinterval
.MinorUnit = 10 'Hilfsinterval
End With
Next cht

Set cht = Nothing
Set ws = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß von Luschi
aus klein-Paris

PS: Das Ganze klappt aber nur, wenn die Diagramme von der selben Art sind; bei Kreisdiagrammen wird es dann schon ungemütlich!

interface · 14. September 2016

Super passt einwandfrei, Danke.

Office: Excel mehrere Diagramme Skalierung anpassen

Excel mehrere Diagramme Skalierung anpassen

Excel mehrere Diagramme Skalierung anpassen

Excel mehrere Diagramme Skalierung anpassen

Excel mehrere Diagramme Skalierung anpassen - Similar Threads - Excel Diagramme Skalierung

XY-Diagramm-Grafik mit zusätzlichen Daten erweitern

Mehrere Tabellen in einer Pivot Grafik

Datenpunkt statt Datum in Excel-Diagrammen

Diagramme mit mehreren Kategorien darstellen

[Excel 2016] Diagramm: Skalierung y-Achse Monatsanfang und Datumsformat

Excel Diagramm y-Achse Skalierung

Skalierung bei Excel Diagrammen