Diagramm - Werte über Säulen
02.11.2005 09:36:16
Mola
was muss ich meinem VBA-Code hinzufügen, dass er mir die Werte über den Balken anzeigt? Ich habe es per recorder gemacht und es hat geklappt...umgemünzt auf mein Diagramm haut es nicht mehr hin? Auch die with für Schriftgröße ist doch nicht optimal so - oder? Vielleicht könnte einer von Euch mal kurz über diesen Code schauen und mir sagen was ich daran noch verbessern kann - Vielen Dank!
Grüße Mola
Sub DiagrammErstellen()
On Error Resume Next
Dim cht As ChartObject
Dim tmpstr As String
tmpstr = "=" & ThisWorkbook.Name & "!Säule"
Sheets("Test").Select
For Each cht In ActiveSheet.ChartObjects
cht.Delete
Next cht
Sheets("Test").ChartObjects.Add(30, 150, 400, 185).Name = "Diagramm2"
ActiveSheet.ChartObjects("Diagramm2").Activate
With ActiveChart
.ChartType = xlColumnClustered
.SeriesCollection.NewSeries
.SeriesCollection(1).XValues = "=Test!R11C18:R12C21"
.SeriesCollection(1).Values = tmpstr
.SeriesCollection(1).Points(3).Interior.ColorIndex = 43
.SeriesCollection(1).Points(4).Interior.ColorIndex = 43
.HasLegend = False
.Location Where:=xlLocationAsObject, Name:="Test"
End With
ActiveSheet.ChartObjects("Diagramm2").Width = 510
ActiveSheet.ChartObjects("Diagramm2").Height = 240
ActiveSheet.ChartObjects("Diagramm2").Left = Range("F13").Left
ActiveSheet.ChartObjects("Diagramm2").Top = Range("F13").Top
With Selection.Font
.Size = 7
End With
End Sub