bei allen Diagrammen MaximumScale auf automatísch

Bild

Betrifft: bei allen Diagrammen MaximumScale auf automatísch
von: Anja
Geschrieben am: 15.04.2005 09:42:50
Hallo Leute....
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

Bild

Betrifft: AW: bei allen Diagrammen MaximumScale auf automatísch
von: Herbert H.
Geschrieben am: 15.04.2005 11:14:04
hallo Anja,
dieses Makro stellt in allen Blättern bei allen
Diagrammen Max-Scale auf Automatic...
sofern es sich um Eingebettete Diagramme handelt...
ist nur die Frage, wann du es ausführen willst...


Public Sub Diagr_aut()
Dim chobj As ChartObject, sh%
For sh = 1 To Worksheets.Count
   For Each chobj In Sheets(sh).ChartObjects
     chobj.Chart.Axes(xlValue).MaximumScaleIsAuto = True
    Next
Next
Set chobj = Nothing
End Sub

     gruß Herbert
Bild

Betrifft: AW: bei allen Diagrammen MaximumScale auf automatísch
von: Anja
Geschrieben am: 15.04.2005 16:24:11
hallo Herbert,
danke schon mal für die Meldung.
Das möchte ich z.B beim einfügen der neuen Tabellenblätter.
Viele Grüße
Anna
Bild

Betrifft: AW: bei allen Diagrammen MaximumScale auf automatísch
von: Herbert H.
Geschrieben am: 15.04.2005 21:14:18
beim Einfügen neuer Blätter kann man das nicht ausführen,
das SheetActivate-Ereignis" müßte auch reichen...
'in das Modul "Diese Arbeitsmappe"...

Private Sub Workbook_SheetActivate(ByVal sh As Object)
Dim chobj As ChartObject, i%
For i = 1 To Worksheets.Count
   For Each chobj In Sheets(i).ChartObjects
     chobj.Chart.Axes(xlValue).MaximumScaleIsAuto = True
    Next
Next
Set chobj = Nothing
End Sub

gruß Herbert
Bild

Betrifft: AW: bei allen Diagrammen MaximumScale auf automatísch
von: Anja
Geschrieben am: 19.04.2005 14:17:15
Hallo Herbert,
vielen Dank...
viele Grüße
Anja
 Bild

Beiträge aus den Excel-Beispielen zum Thema "bei allen Diagrammen MaximumScale auf automatísch "