AW: Diagramm
23.04.2015 16:49:20
Beverly
Hi Michael,
ich nehme an, du meinst ein Säulen- und kein Balkendiagramm?
Sub DiaExport()
Dim wksTab As Worksheet
Dim rngRubriken As Range
Dim rngValues As Range
For Each wksTab In Worksheets
If InStr(wksTab.Name, "Spieltag") > 0 Then
With wksTab
Set rngRubriken = Union(.Range("D4"), .Range("F4"), _
.Range("H4"), .Range("J4"), .Range("L4"), _
.Range("N4"), .Range("P4"), .Range("R4"))
Set rngValues = Union(.Range("E15"), .Range("G15"), _
.Range("I15"), .Range("K15"), .Range("M15"), _
.Range("O15"), .Range("Q15"), .Range("S15"))
With .Shapes.AddChart(0, 0, 0, 0).Chart
.ChartType = xlColumnClustered
.SetSourceData Source:=wksTab.Range("A1")
With .SeriesCollection.NewSeries
.XValues = rngRubriken
.Values = rngValues
End With
With .Parent
.Width = 450
.Height = 250
End With
.Export Filename:="D:\Eigene Dokumente\" & wksTab.Name & ".gif", _
FilterName:="GIF"
End With
End With
End If
Next wksTab
End Sub