Diagramme erstellen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

den gesamten Code würde zu viel aber einen größeren Auschnitt!!
es läuft unter office 2000 aber nicht unter 2003!!!
Charts.Add 'neues Diagramm einfügen
ActiveChart.ChartType = xlColumnStacked 'Säulendiagramm
ActiveChart.Location Where:=xlLocationAsObject, Name:="Werk " & Werke(werk - 1)
ActiveChart.SetSourceData Source:=Range(Sheets("Tabelle1").Cells(azeile, aspalte), Sheets("Tabelle1").Cells(ezeile, espalte)), PlotBy _
:=xlRows 'Tabelle für Daten, nach Zeilen geordnet
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowValue, LegendKey:=False 'Datenbeschriftung wird
'angezeigt, keine Legende
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "LUP " & Right(jahre(0), 2) & "-" & Right(jahre(AnzJahre - 1), 2) & " " & jahre(0) & " - " & jahre(AnzJahre - 1) & " Werk " & Werke(werk - 1)
End With

With Sheets("Werk " & Werke(werk - 1)).DrawingObjects("Diagramm 1")
.Placement = xlFreeFloating
.PrintObject = True
End With

ActiveChart.ChartTitle.Select
Selection.AutoScaleFont = True
With Selection.Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With

With ActiveSheet.PageSetup
.Orientation = xlLandscape
End With

ActiveSheet.ChartObjects(1).Activate
ActiveChart.HasLegend = False 'keine Legende anzeigen
ActiveSheet.Shapes(1).Left = 0 '10 Abstand des Diagramms zum linken Rand
ActiveSheet.Shapes(1).Top = 30
ActiveSheet.Shapes(1).Height = 340 'Höhe
ActiveSheet.Shapes(1).Width = 600 '580 Breite

ActiveChart.PlotArea.Select 'Hintergrund ohne Farbe
With Selection.Border
.ColorIndex = 1
.Weight = xlThin
.LineStyle = xlContinuous
End With
Selection.Interior.ColorIndex = xlNone

With ActiveChart.PageSetup 'Querformat
.Orientation = xlLandscape
End With

ActiveChart.SeriesCollection(1).Select 'erste Datenreihe wird ausgewählt
With ActiveChart.ChartGroups(1) 'Diagrammgruppe 1
.Overlap = 100 'Position von Balken, Überlappungswert
.GapWidth = 0 'Platz zwischen den Balken (hier kein Abstand)
.HasSeriesLines = False
End With

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Diagramme erstellen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread