Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
352to356
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
352to356
352to356
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige