Thema Datum  Von Nutzer Rating
Antwort
06.12.2018 14:34:26 Annika
NotSolved
Blau VBA-Makro Diagramm Skalierung
 06.12.2018 15:37:28 ugor
NotSolved
06.12.2018 15:50:44 Gast96025
NotSolved
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 15:37:28		 Views:
675		 Rating:
     
Antwort:
  Ja
Thema:
VBA-Makro Diagramm Skalierung

Hallo,

das könnte doch so gehen:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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
     
'   ActiveSheet.ChartObjects(i + 1).Activate    das aktivate und select sollte überflüssig sein: testen, dann löschen
'   ActiveChart.ChartArea.Select
'   ActiveChart.Axes(xlValue).Select
 
   With ActiveSheet.ChartObjects(i + 1).Axes(xlValue)
      .MaximumScale = Worksheets(sWs).Cells(wZeile, 23)     'Range("W3")
      .MinimumScale = 0
      .MinorUnitIsAuto = True
      .MajorUnitIsAuto = True
      .Crosses = xlAutomatic
      .ReversePlotOrder = False
      .DisplayUnit = xlNone
   End With
'   ActiveSheet.ChartObjects(i + 1).Axes(xlCategory).Select          sollte überflüssig sein, testen => Zeile löschen
   With ActiveSheet.ChartObjects(i + 1).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

Die activate- und select-Befehle sollten überflüssig sein. Da ich es nicht testen konnte, habe ich sie lediglich auskommentiert. Sollte es also funktionieren, kannst du (und solltest du :-) ) aufräumen und die entsprechenden Zeilen löschen.

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Blau VBA-Makro Diagramm Skalierung
 06.12.2018 15:37:28 ugor
NotSolved
06.12.2018 15:50:44 Gast96025
NotSolved
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