Thema Datum  Von Nutzer Rating
Antwort
06.12.2018 14:34:26 Annika
NotSolved
06.12.2018 15:37:28 ugor
NotSolved
06.12.2018 15:50:44 Gast96025
NotSolved
Blau VBA-Makro Diagramm Skalierung
 06.12.2018 16:06:49 ugor
NotSolved
06.12.2018 16:26:35 Annika
NotSolved
06.12.2018 16:56:10 ugor
NotSolved
07.12.2018 09:03:16 Annika
NotSolved
07.12.2018 09:06:33 Gast27850
NotSolved
07.12.2018 13:54:19 ugor
NotSolved

Ansicht des Beitrags:
Von:
ugor		 Datum:
06.12.2018 16:06:49		 Views:
552		 Rating:
     
Antwort:
  Ja
Thema:
VBA-Makro Diagramm Skalierung

Hallo,

oh ja, vielleicht sollte ich nichts posten, ohne es zu testen!

So funktioniert es bei mir:

Dim i As Long
Dim sWs As String
Dim wZeile As Long
 
For i = 0 To ActiveSheet.ChartObjects.Count - 1
    sWs = Format(i \ 3 + 1, "00")       'Tabellenblatt
    wZeile = i Mod 3 + 3                'Zeile in Spalte W
     
   With ActiveSheet.ChartObjects(i + 1).Chart.Axes(xlValue)
      .MaximumScale = Worksheets(sWs).Cells(wZeile, 23)     'Range("W3")
      .MinimumScale = 0
      .MinorUnitIsAuto = True
      .MajorUnitIsAuto = True
      .Crosses = xlAutomatic
      .ReversePlotOrder = False
      .DisplayUnit = xlNone
   End With
   With ActiveSheet.ChartObjects(i + 1).Chart.Axes(xlCategory)
      .MaximumScale = Worksheets(sWs).Range("B5")
      .MinimumScale = Worksheets(sWs).Range("B3")
      .MinorUnitIsAuto = True
      .MajorUnitIsAuto = True
      .Crosses = xlAutomatic
      .ReversePlotOrder = False
      .DisplayUnit = xlNone
   End With
     
Next

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
06.12.2018 14:34:26 Annika
NotSolved
06.12.2018 15:37:28 ugor
NotSolved
06.12.2018 15:50:44 Gast96025
NotSolved
Blau VBA-Makro Diagramm Skalierung
 06.12.2018 16:06:49 ugor
NotSolved
06.12.2018 16:26:35 Annika
NotSolved
06.12.2018 16:56:10 ugor
NotSolved
07.12.2018 09:03:16 Annika
NotSolved
07.12.2018 09:06:33 Gast27850
NotSolved
07.12.2018 13:54:19 ugor
NotSolved