Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Diagramm-Datenreihen blinken lassen und Linie langsam zeichnen

Gruppe

Diagramm

Problem

Wie kann ich in einem Diagramm die Datenreihen blinken lassen und eine Linie so stückweise zeichnen, daß man den Verlauf verfolgen kann?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub Blinken()
  Dim cht As Chart
  Dim iCounter As Integer
  Dim bln As Boolean
  Set cht = ActiveSheet.ChartObjects(1).Chart
  For iCounter = 1 To 10
    If bln Then
      cht.ApplyDataLabels (xlShowValue)
      bln = False
    Else
      cht.ApplyDataLabels (xlNone)
      bln = True
    End If
    Application.Wait Now + TimeSerial(0, 0, 1)
  Next iCounter
End Sub

Sub Zeichnen()
  Dim cht As Chart
  Dim iCounter As Integer
  Set cht = ActiveSheet.ChartObjects(1).Chart
  cht.SeriesCollection(2).Border.ColorIndex = 15
  For iCounter = 1 To cht.SeriesCollection(2).Points.Count - 1
    cht.SeriesCollection(2).Points(iCounter).Border.ColorIndex = 0
    Application.Wait Now + TimeSerial(0, 0, 1)
  Next iCounter
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Grafik und Diagramm