Grafik formatieren
07.06.2006 09:42:39
PopS
ich habe folgendes Problem: Ich möchte in Excel ein Diagrammblatt ansprechen und formatieren. Es handelt sich um ein Liniendiagramm mit (insgesamt 12) Datenpunkten. Ich möchte bei der Formatierung dafür sorgen, dass Nullwerte und nicht in die Vorlagentabelle eingetragene Werte automatisch entfernt werden. Fehlt beispielsweise der Werte an Position 5, dann sollen a) die Punkte 1-4 eingetragen und mit einer Liene verbunden werden und b) die Punkte 6-12 ebenso.
Zwischen 4 und 6 soll weder ein Punkt noch eine Liene sein!
Ich habe es wie folgt probiert. Leider erfolglos!
*********************************************************
Sub grafiken_formatieren_D()
Dim a, j, k As Integer
Dim Cht As Chart
Dim ChtSCol As SeriesCollection
Dim ChtPt As Point
For a = 1 To 2
ThisWorkbook.Sheets("Diagramm").Activate
Set Cht = ActiveSheet.ChartObjects(a).Chart
Set ChtSCol = Cht.SeriesCollection
On Error Resume Next
For j = 1 To ChtSCol.Count
ChtSCol(j).ApplyDataLabels ShowValue:=True
For k = 1 To ChtSCol(j).Points.Count
Set ChtPt = ChtSCol(j).Points(k)
If ChtPt.DataLabel.Text <= "0,00" Then
ChtPt.DataLabel.Delete
ElseIf ChtPt.DataLabel.Text > "0,00" Then
ChtPt.DataLabel.Border.LineStyle = xlContinious
ChtPt.DataLabel.Border.Weight = xlHairline
ChtPt.DataLabel.Border.ColorIndex = 16
ChtPt.DataLabel.Shadow = False
ChtPt.DataLabel.Interior.ColorIndex = 2
ChtPt.DataLabel.Interior.PatternColorIndex = 2
ChtPt.DataLabel.InteriorPattern = xlSolid
ChtPt.DataLabel.Font.Name = "Arial"
ChtPt.DataLabel.Font.FontStyle = "Standard"
ChtPt.DataLabel.Font.Size = 6
ChtPt.DataLabel.Font.Strikethrough = False
ChtPt.DataLabel.Font.Superscript = False
ChtPt.DataLabel.Font.Subscript = False
ChtPt.DataLabel.Font.OutlineFont = False
ChtPt.DataLabel.Font.Shadow = False
End If
Next k
Next j
Next a
End Sub
************************************************************
Ich freue mich über Hilfe. Vielen Dank,
PopS