Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "bei allen Diagrammen MaximumScale auf automatísch "
Export von Diagrammen im Grafikformat Eine Serie von Diagrammen erstellen und Druckansicht zeigen
Automatische Datumformatierung unterdrücken Automatisch Sicherungsdatei erstellen
Automatisches Komplettieren einer Zelleingabe Zelleingaben automatisch auf volle 1,2-Teile runden
Tabelle nach Datumseintrag automatisch sortieren Eingaben in B:D automatisch mit 6 multiplizieren
Zelleingabe automatisch in Kopfzeile übernehmen Nach Zelleingabe automatische Sortierung