Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
352to356
352to356
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Diagrammskalierung über VBA lesen

Forumthread: Diagrammskalierung über VBA lesen

Diagrammskalierung über VBA lesen
18.12.2003 16:51:15
Thomas S.
Hallo weltbestes Forum

Ich will aus einem eingebettetem Diagramm die x-Achsenskalierung über VBA ermitteln und die Werte Parametern zuordnen.

So gehts es nicht:
Datum1 = Sheets("XXX").ChartObjects("Diagramm 1").Axes(xlCategory).MinimumScale.Value

Wer kann mir helfen?
Gruß Thomas
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Diagrammskalierung über VBA lesen
18.12.2003 17:44:54
K.Rola
Hallo,

wenn es eine lineare Skalierung ist, kannst du die einzelnen Werte
aus folgenden Informationen zusammenbasteln:


Sub lesen()
Dim ch As Object
Set ch = ActiveSheet.ChartObjects(1).Chart
With ch.Axes(xlCategory)
MsgBox .MinimumScale
MsgBox .MaximumScale
MsgBox .MajorUnit
End With
End Sub


Gruß K.Rola
Anzeige
AW: Diagrammskalierung über VBA lesen
19.12.2003 10:25:06
Thomas S.
Hallo K.Rola

vielen Dank für Deinen Tipp, ich habe mein Problem jetzt so gelöst:


Sub DiagrammMinus()
Dim ch As Object
Dim Datum1 As Variant
Dim Datum2 As Variant
Application.ScreenUpdating = False
Set ch = Sheets("XXXX").ChartObjects("Diagramm 1").Chart
Datum1 = ch.Axes(xlCategory).MinimumScale - 1
Datum2 = ch.Axes(xlCategory).MaximumScale - 1
Sheets("XXXX").ChartObjects("Diagramm 1").Activate
ActiveChart.Axes(xlCategory).Select
With ActiveChart.Axes(xlCategory)
.MinimumScale = Datum1
.MaximumScale = Datum2
.MinorUnit = 0.125
.MajorUnit = 1
.Crosses = xlCustom
.CrossesAt = Datum1
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
End Sub


Gruß Thomas
Anzeige
AW: Diagrammskalierung über VBA lesen
19.12.2003 10:58:20
K.Rola
Hallo,

das hat ja mit deiner Frage eigentlich nicht viel zu tun. Du wolltest
auslesen aber hier weist du Werte zu.

Zwei Hinweise, wenn du Application.ScreenUpdating = False setzt,
solltest du das korrekterweise auch wieder auf True setzen.
Select ist nicht nötig, siehe mein Beispiel.

Gruß K.Rola
Anzeige
AW: Diagrammskalierung über VBA lesen
19.12.2003 11:19:49
Thomas S.
Danke K.Rola

nach meinem Verständnis lese ich erst die Werte und ziehe dann 1 ab

Datum1 = ch.Axes(xlCategory).MinimumScale - 1
Datum2 = ch.Axes(xlCategory).MaximumScale - 1

Mein Problem war schon ursprünlich das Auslesen

Gruß Thomas
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige