AW: Diagrammposition im Tabellenblatt
26.06.2007 07:43:19
Beverly
Hi Reiner,
hier noch eine Variante, wo das Diagrammobjekt direkt in der Tabelle erstellt wird.
Sub Flächendiagramm()
Dim chDiagramm As ChartObject
Dim wsTabelle As Worksheet
Set wsTabelle = Worksheets("Tabelle2")
Set chDiagramm = wsTabelle.ChartObjects.Add(100, 12500, 400, 300)
With chDiagramm.Chart
.ChartType = xlArea
.SetSourceData Source:=wsTabelle.Range("A1:A288"), PlotBy:=xlColumns
With .Axes(xlValue)
.MinimumScale = wsTabelle.Range("B2") - 1
.MaximumScale = wsTabelle.Range("B3") + 1
.CrossesAt = wsTabelle.Range("B1")
End With
End With
End Sub
Die Variablen für Min/Max/Achsenschnitt kannst du direkt aus der Tabelle ohne Variablen übernehmen. Einige der Achseneigenschaften sind Standard und können weggelassen werden
Bis später,
Karin