Excel Diagramm

17/10/2009 - 10:54 von Johann Weiss | Report spam
Hallo,

ich hab da mal eine Frage zu einem Diagramm.
Ich werte Maschienen - Stilstandzeiten in einem Diagramm aus,
was kein Problem darstellt. Nun ist es aber so das mein Chef aber immer
wissen will
wenn eine grössere Störung war was da gewesen ist, was ich bisher immer
mit einer
Sprechblase nachtràglich in das Diagramm eingefügt habe.
Nun meine Frage ist sowas auch mit VBA möglich und wie ginge das, bzw.
habe ich mir schon gedacht das ich das bei dem entsprechenden Balken
anstelle
des Wertes anzeigen lassen könnte.
Ich habe mir das so gedacht,

A B C D
Woche Maschine Wert Ursache
20 B54 3 -
21 B54 26 Hubzylinder defekt
22 B54 0 -

Ich möchte zb die Spalte D als Wert ( Beschriftung) anzeigen lassen.
Ist sowas überhaubt möglich?

gruss Johann
 

Lesen sie die antworten

#1 Andreas Killer
17/10/2009 - 12:53 | Warnen spam
Johann Weiss schrieb:

Sprechblase nachtràglich in das Diagramm eingefügt habe.
Nun meine Frage ist sowas auch mit VBA möglich und wie ginge das, bzw.
habe ich mir schon gedacht das ich das bei dem entsprechenden Balken


Wie wàre es denn wenn Du dem Punkt eine Beschriftung verpasst?

Andreas.

Option Explicit

Sub Makro1()
Dim C As Chart
Dim S As Series
Dim P As Point

'Den Verweis zum Chart holen
Set C = ActiveSheet.ChartObjects("Diagramm 1").Chart
'Den Verweis zur Datenreihe 1 holen
Set S = C.SeriesCollection(1)
'Den Verweis zum 2ten Datenpunkt holen
Set P = S.Points(2)
'Beschriftung ermöglichen
P.ApplyDataLabels xlDataLabelsShowLabel

'Eine Beschriftung dranpeppen
With P.DataLabel
'Fehler aus, nicht jeder Diagrammtyp unterstützt alles
On Error Resume Next

'Text hinzufügen
.Text = "Hubzylinder defekt"
'Position über dem Datenpunkt
.Position = xlLabelPositionAbove
'Text zentrieren
.HorizontalAlignment = xlCenter
'Roten Rahmen drumrum
.Border.ColorIndex = 3
'Hintergrund weiß
.Interior.ColorIndex = xlAutomatic
'Schatten noch dran
.Shadow = True
End With
End Sub

Ähnliche fragen