diagramm erstellen/benutzerdefinierter diagrammtyp

HILFE!
ich schreibe gerade an meiner masterarbeit und habe ziemlich viele excel diagramme. diese diagramme sind alle vom gleichen typ, nur mit anderen datenreihen. ich habe alle diagramme mit einem benutzerdefinierten diagrammtyp hergestellt. leider haben alle diagramme unterschiedliche abmessungen und schriftgrössen. selbst wenn ich ein und dasselbe diagramm erstelle, ist die grösse anders, und das verhältniss von der schriftgröße der achsenbeschriftung und des titels passt nicht mehr. das sieht dann natürlich ziemlich doof aus wenn man die diagramme vergleichen will, sie aber ein anderes format haben!
ich hab schon alles ausprobiert was mir eingefallen ist um die diagramme einheitlich hinzubekommen. es wäre natürlich toll wenn das ginge ohne die diagramme neu herstellen zu müssen!
mir wäre sehr geholfen wenn mir jemand einen tipp geben könnte wie das zu machen ist!
vielen dank
xenia

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub dia_anpassen() Dim chDiagramm As Chart Dim inDiagramm As Integer With ActiveSheet For inDiagramm = 1 To .ChartObjects.Count Set chDiagramm = .ChartObjects(inDiagramm).Chart With chDiagramm .Parent.Height = 200 '

Sub dia_anpassen() Dim chDiagramm As Chart ' Variable für das eingebettete Diagrammobjekt Dim inDiagramm As Integer ' Schleifenvariable With ActiveSheet ' in der aktiven Tabelle ' Schleife über alle Diagrammobjekte For inDiagramm = 1 To .ChartObjects.Count ' Diagramm auf die Variable schreiben Set chDiagramm = .ChartObjects(inDiagramm).Chart ' im Diagrammobjekt With chDiagramm ' Diagrammflächenhöhe in Pixel .Parent.Height = 400 '

Hi Xenia,


Sub dia_anpassen()
Dim chDiagramm As Chart
Dim inDiagramm As Integer
With ActiveSheet
For inDiagramm = 1 To .ChartObjects.Count
Set chDiagramm = .ChartObjects(inDiagramm).Chart
With chDiagramm
.Parent.Height = 200
.Parent.Width = 400
With .Axes(xlCategory) ' X-Achse
.AxisTitle.AutoScaleFont = False ' Achsen-Titel Automatik aus
.AxisTitle.Font.Size = 10  ' Achsen-Titel Schriftgröße
.TickLabels.AutoScaleFont = False
.TickLabels.Font.Size = 10
End With
With .Axes(xlValue) ' Y-Achse
.AxisTitle.AutoScaleFont = False ' Achsen-Titel Automatik aus
.AxisTitle.Font.Size = 10 ' Achsen-Titel Schriftgröße
.TickLabels.AutoScaleFont = False
.TickLabels.Font.Size = 10
End With
With .Legend
.AutoScaleFont = False
.Font.Size = 10
End With
With .ChartTitle  ' Diagrammtitel
.AutoScaleFont = False ' Automatik aus
.Font.Size = 10  ' Schriftgröße
End With
End With
Next inDiagramm
End With
End Sub

Bis später,
Karin

Beliebteste Forumthreads (12 Monate)

diagramm erstellen/benutzerdefinierter diagrammtyp

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

diagramm erstellen/benutzerdefinierter diagrammtyp

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread