Office: Charterstellung, mehrere Diagramme...

Hallo zusammen *Smilie

Ich bräuchte dringend Hilfe, was die Charterstellung mehrerer Diagramme angeht:

Makro steht im Grunde schon fast.. Es werden pro 2 Spalten immer ein
Chart generiert, also Spalte A und B ein Chart, C und D usw. nur die
Kriterien für das Diagramm (also Schriftgrößen anpassen,
Achseneigenschaften ändern).. die müssten auch quasi per Makro
automatisiert werden...

Das Makro zur Charterstellung:

Sub Charterstellung()
Dim shp As Shape
Dim iCol As Integer, iRowL As Integer

For Each shp In ActiveSheet.Shapes
If shp.Type 8 Then shp.Delete
Next shp

For iCol = 1 To Cells(1, Columns.Count).End(xlToLeft).Column Step 2
iRowL = WorksheetFunction.CountA(Columns(iCol))
Set shp = ActiveSheet.Shapes.AddChart
shp.Chart.SetSourceData Source:=Range("'" & ActiveSheet.Name & "'!" & _
Range(Cells(1, iCol), Cells(iRowL, iCol + 1)).Address)
shp.Chart.ChartType = xlBarClustered

Next iCol

End Sub

Die Eigenschaften, die der Makrorecorder bei der Anpassung lieferte:

Sub ChartAnpassen()

ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.Legend.Select
ActiveChart.Legend.LegendEntries(2).Select
Selection.Delete
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.SeriesCollection(1).Select
Selection.Delete
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveSheet.Shapes("Diagramm 1").ScaleHeight 2.1545137066, msoFalse, _
msoScaleFromBottomRight
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveSheet.Shapes("Diagramm 1").ScaleWidth 1.1875, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Diagramm 1").ScaleHeight 1.5485895116, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveSheet.Shapes("Diagramm 1").ScaleWidth 1.1543859649, msoFalse, _
msoScaleFromTopLeft
ActiveWindow.SmallScroll Down:=-21
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.Axes(xlCategory).Select
ActiveWindow.SmallScroll Down:=18
ActiveChart.Axes(xlValue).Select
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).ApplyDataLabels
ActiveChart.SeriesCollection(1).DataLabels.Select
ActiveChart.ChartArea.Select
ActiveChart.Axes(xlValue).Select
ActiveChart.Axes(xlValue).MinimumScale = 0
ActiveChart.Axes(xlValue).MinimumScale = 1
ActiveChart.Axes(xlValue).MaximumScale = 6
ActiveChart.Axes(xlValue).MaximumScale = 5
ActiveChart.Axes(xlValue).MajorUnit = 1
ActiveChart.Axes(xlValue).MinorUnit = 0.2
ActiveChart.Axes(xlValue).MinorUnit = 1
Selection.TickLabels.NumberFormat = "0"
ActiveWindow.SmallScroll Down:=-18
ActiveChart.SeriesCollection(1).Select
ActiveChart.ChartGroups(1).GapWidth = 54
ActiveChart.ChartGroups(1).GapWidth = 53
ActiveChart.ChartGroups(1).GapWidth = 52
ActiveChart.ChartGroups(1).GapWidth = 51
ActiveWindow.SmallScroll Down:=-6
ActiveChart.Axes(xlCategory).Select
With Selection.Format.TextFrame2.TextRange.Font
.NameComplexScript = "Arial"
.NameFarEast = "Arial"
.Name = "Arial"
End With
ActiveChart.SeriesCollection(1).DataLabels.Select
With Selection.Format.TextFrame2.TextRange.Font
.NameComplexScript = "Arial"
.NameFarEast = "Arial"
.Name = "Arial"
End With
ActiveWindow.SmallScroll Down:=9
ActiveChart.Axes(xlValue).Select
With Selection.Format.TextFrame2.TextRange.Font
.NameComplexScript = "Arial"
.NameFarEast = "Arial"
.Name = "Arial"
End With
ActiveWindow.SmallScroll Down:=-15
ActiveChart.Legend.Select
Selection.Delete
ActiveWindow.SmallScroll Down:=-9
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartTitle.Select
Selection.Left = 7.5
Selection.Top = 7

End Sub


Wie bekomme ich das alles bspw. in eine For-Schleife, sodass bei Klick auf das Makro die Erstellung geschieht?

Vielen Dank im Voraus...

Gruß
dilhun

:)

 

Hi,
Code:

 

Hallo Beverly,

vielen lieben Dank für die rasche Antwort...*Smilie

Auch wenn ich manche Parameter ändere, sieht die Zielgrafik nicht so aus wie das Chart in der Beispieldatei. Was mache ich falsch?
Bei der Charterstellung werden ja immer zwei Spalten als Bezugsquelle genommen und anschließend die ersten Datenreihe entfernt, bei mir dann die Spalte "Zeilenbeschriftung". Genau da blick ich nicht mehr durch...*frown.gif*

Welche Werte muss man im Code optimieren, um zum gewünschten Ergebnis zu kommen?

Vielen Dank nochmals.

Liebe Grüße

dilhun

 

Hi,

in deiner Arbeitsmappe finde ich keinen Code.

 

Hi Beverly,

sorry, hab es wohl falsch gespeichert *rolleyes.gif*

Anbei noch einmal die Beispieldatei.

Im Makro123 habe ich noch einmal die Änderungen aufgenommen.

Liebe Grüße

dilhun

 

Hi,

dies sind jetzt andere Formatierungen als in deinem 1. aufgezeichneten Makro.
Code:

 

Hi Beverly,

besten Dank, die Formatierung passt! *Smilie

Nur fällt mir jetzt ein ganz anderes Problem auf, selbst wenn ich das Diagramm per Hand erstelle:

Bspw. nehmen wir die ersten beiden Spalten A und B und generieren ein Chart, so stimmt dann die Zuordnung der einzelnen Werte zueinander nicht. Die Balken sind zwar richtig angeordnet, aber die dazugehörigen Achsenpunkte passen nicht.

Wo kann man das einstellen und ggf. per Makro?

Ich bin Dir was schuldig, Beverly...*rolleyes.gif*

 

Hi,

ich verstehe leider nicht, was du meinst - welche Zuordnung stimmt nicht und welche Achsenpunkte passen nicht?

 

Hi Beverly,

Wenn man bei den Charts die Quelltabellen anschaut, dann stimmen die Werte zueinander nicht, da sowohl die Achsenbeschriftung (also Y-Achse), als auch die Datenreihen der Größe nach angeordnet werden. Die Y-Achse (in unserem Fall die Spalte "Zeilenbeschriftung") wird doch aber nach Spalte Wert sortiert, nur bei den Diagrammen lässt sich diese Zuordnung nicht sehen.

Sorry, ich glaub besser kann ichs net ausdrücken...*frown.gif*

Liebe Grüße

dilhun

 

Hi,

standardmäßig wird das Balkendiagramm so erstellt, dass die Reihenfolge der Werte umgekehrt zur Auflistung in der Arbeitsmappe ist - deshalb muss man diese anschließend noch umkehren und (eventuell) den Schnittpunkt der Größenachse auf das Maximum legen.
Code:

 

Hi Beverly,

Du kannst Dir nicht vorstellen, wie dankbar ich Dir bin! *rolleyes.gif*

Eine letzte Frage: Jetzt muss nur noch die Reihenfolge anders sein, also unten der kleinste Wert, und oben der Größte. Ist das möglich?...

Und:

Wie kann ich Dir entgegenkommen?...

Vielen lieben Dank...

Grüßle

dilhun

 

Hi,

wie die Datenpunkte (Balken) angeordnet sind, hängt von der Reihenfolge der Werte im Tabellenblatt ab - wenn sie sortiert angezeigt werden sollen, müsstest du die betreffenden 2 Spalten sortieren. In diesem Fall wäre jedoch die Reihenfolge der Achsenbeschriftung (vertikale Achse) für jedes Diagramm anders. Da ich nun nicht weiß, ob dies deine Intension ist, poste ich erst einmal keine Lösung.

 

Hi Beverly,

wenn ich die Sortierreihenfolge ändere, dann passt die Balkenreihenfolge auch.

Ist es möglich, die Spalten aszendent aber die Balken deszendent anzuzeigen?...

Gruß

dilhun

 

Hi,

lösche die beiden Codezeilen
Code:

 

Hi Beverly,

merci beaucoup!... *Smilie

Hab dir 'ne PM zukommen lassen...

Gruß

dilhun