Office: Alle Diagramme per Schleife durchlaufen

User · 1. September 2008

Wie kann ich in einem Tabellenblatt alle Diagramme in einer Schleife durchlaufen?

Ich würde gerne meinen 10 Diagrammen (oder mehr) alle eine andere Schriftgröße verpassen.

Aber leider bekomme ich als Anfänger nichts hin :-/

:)

jinx · 3. September 2008

Moin, ExcelPräsi,

ein Ansatz:
Code:

Dim oShape As Shape
For Each oShape In ActiveSheet.Shapes
If Left(oShape.Name, 5) = "Chart" Then
Debug.Print oShape.Name
End If
Next oShape
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

User · 3. September 2008

Danke Jinx für die Hilfe,

evtl. benötige ich es doch gar nicht.

Habe nämlich Code geschrieben (bzw. per Makro aufgenommen und angepasst), der mir in einer Schleife die DIagramme erstellt. Ich bekomme allerdings dabei die Krise. In dem Code soll auch die Schriftgröße verändert werden. Wenn ich jetzt den Code per Debugger durchlaufe wird auch überall die Schriftgröße angepasst und vergrößert. Wenn ich das Makro allerdings ohne debuggen durchlaufen lasse passiert nichts. Die Schrift bleibt klein. Woran liegt das denn jetzt schon wieder? Das kann doch eigentlich gar nicht sein, oder?

ExcelPräsi · 3. September 2008

So, habe mich mal angemeldet hier :-)

Hier ist mal mein Code. Das ist der Hammer, wenn ich mit dem Debugger durch das "With Selection.Font" gehe, dann ist danach die Schrift fett. Wenn ich dort keinen Breakpoint setze, dann bleibt die Schrift klein...

Code:

Sub Balkendiagramm(strWert1 As String, strWert2 As String)

Charts.Add

ActiveChart.ChartType = xlColumnStacked
ActiveChart.SetSourceData Source:=Sheets("Ticketauswertung").Range("F4")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = ""
ActiveChart.SeriesCollection(1).Values = "=Ticketauswertung!" & strWert1 '****************
ActiveChart.SeriesCollection(1).Name = "=""Kommen"""
ActiveChart.SeriesCollection(2).XValues = ""
ActiveChart.SeriesCollection(2).Values = "=Ticketauswertung!" & strWert2 '*****************
ActiveChart.SeriesCollection(2).Name = "=""Absagen"""
ActiveChart.Location Where:=xlLocationAsObject, Name:="Ticketauswertung"

ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Points(1).Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlAutomatic
End With

Selection.Shadow = False
Selection.InvertIfNegative = False
With Selection.Interior
.ColorIndex = 54
.Pattern = xlSolid
End With
ActiveChart.SeriesCollection(2).Select
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(2).Select
ActiveChart.SeriesCollection(2).Points(1).Select
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Points(1).Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlAutomatic
End With
Selection.Shadow = False
Selection.InvertIfNegative = False
With Selection.Interior
.ColorIndex = 18
.Pattern = xlSolid
End With
ActiveChart.ApplyDataLabels AutoText:=True, LegendKey:=False, _
HasLeaderLines:=False, ShowSeriesName:=False, ShowCategoryName:=False, _
ShowValue:=True, ShowPercentage:=False, ShowBubbleSize:=False

ActiveChart.ChartArea.Select

ActiveSheet.Shapes("Diagramm " & diagrNr).ScaleWidth 0.8, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Diagramm " & diagrNr).ScaleHeight 0.55, msoFalse, _
msoScaleFromTopLeft
Selection.AutoScaleFont = True

With ActiveChart.Parent
.Top = 0 + (diagrNr - 1) * 197
.Left = 280
'.Name = "Diagramm" & diagrNr
End With

ActiveChart.ChartArea.Select
'Selection.AutoScaleFont = True
With Selection.Font
.Name = "Arial"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Alternativ wäre es auch cool, wenn man bei Erzeugung des DIagramms einfach sagen könnte, dass die Schrift nicht automatisch skaliert wird, das würde schon reichen...

Office: Alle Diagramme per Schleife durchlaufen

Alle Diagramme per Schleife durchlaufen

Alle Diagramme per Schleife durchlaufen

Alle Diagramme per Schleife durchlaufen

Alle Diagramme per Schleife durchlaufen - Similar Threads - Diagramme Schleife durchlaufen

Diagramme positionieren

Diagrammformatierung in Excel 2019

Diagramm excel - Achsenoptionen

Diagramm

Vereinfachtes Gantt-Diagramm mit Kalenderwochen und Jahren

Nullen in Diagramm nicht anzeigen

Diagramm als Vollbild?