bei allen Diagrammen MaximumScale auf automatísch
15.04.2005 09:42:50
Anja
habe eine Frage an euch...
ich möchte, dass beim einfügen oder Kopieren neuen Blätter in meine Datei,
diagrammen erkannt werden und für alle soll Maximale Skalierung der y-Achse auf
automatisch gesetzt werden. Im VBA Code wäre die automatische setzung nur für eine bestimmte Diagram so:
ActiveWindow.Visible = False
Windows("Test_BEx_Workbook_letzte_version.xls").Activate
ActiveSheet.ChartObjects("Diagramm 23").Activate
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = 0
.MaximumScaleIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
End Sub
Aber wie es für alle neue Diagrammen in neuen beigefügten Blätter oder z.B beim erstellen der neuen diagrammen oder vielleicht einfach beim auswahl der Tabelle funktioniert, weiss ich nicht.
Wäre toll wenn ihr mir helfen würden die code richtig zu ergänzen.
hier ein beispiel:
wenn man von der Datei "diagrame_dazu" die blätter in die Datei "normale_datei"
einfügt, sollten bei Diagrammen aus der "diagrame_dazu" bei y-Achse Maximale scalierung auf automatisch gesetzt werden, oder überhaupt für alle diagramme in der "normale_datei" neue auf automatisch gesetzt.
https://www.herber.de/bbs/user/21179.zip
vielen Dank und viele Grüße
Anja