Thema Datum  Von Nutzer Rating
Antwort
12.06.2008 14:04:24 Tomas Werle
NotSolved
Blau Aw:Aktive Series Collection im Chart ermitteln
15.06.2008 13:44:49 Holger
NotSolved
26.02.2015 11:09:32 Tom
NotSolved

Ansicht des Beitrags:
Von:
Holger
Datum:
15.06.2008 13:44:49
Views:
1002
Rating: Antwort:
  Ja
Thema:
Aw:Aktive Series Collection im Chart ermitteln
Hallo Thomas,
ich gehe davon aus, dass es sich nicht um eingebettetes Diagramm, sondern um eine Chart handelt.
Dann kannst im Codeteil der Chart z.B.

Private Sub chart_Select(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long)
If ElementID = xlSeries And Arg1 = 1 Then
'Deine Anweisungen für die 1. Datenreihe
end if
If ElementID = xlSeries And Arg1 = 2 Then
'Deine Anweisungen für die 1. Datenreihe
end if
'usw.
End Sub

verwenden.
Gruß
Holger

Tomas Werle schrieb am 12.06.2008 14:04:24:

Hallo Leute,

ich bin momentan dabei, ein kleines Tool zu entwickeln, mit dem ich die einzelnen Werte einer Reihe in einem Punktediagramm (Grid) in Excel beschriften kann. Ich möchte das Programm so gestalten, dass immer die gerade markierte Reihe beschriftet wird. Allerdings weiß ich nicht, wie ich rausfinden kann, welche Reihe gerade markiert ist.

Hab schon überall im Internet gesucht und nichts gefunden... Hättet ihr eine Idee? Irgendeine Funktion in der Art activechart.seriescollection(1).isselected (die so natürlich leider nicht existiert :( )

Unten findet ihr den Code des Programmes, wie ich ihn bisher habe. Vielen Dank schonmal für die Hilfe! :)

Grüße
Tomas

Sub Datenbeschriftung()
Dim Startzelle
Dim j as Integer
Dim Spalte
Dim Startzeile

Startzelle = "a1"
Spalte = Range(Startzelle).Column
Startzeile = Range(Startzelle).Row
For j = 1 To activechart.SeriesCollection(1).Points.Count
With activechart.SeriesCollection(1).Points(j)
.HasDataLabel = True
.DataLabel.Text = activesheet.Cells(Startzeile + j - 1 , Spalte).Value
End With
Next
End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
12.06.2008 14:04:24 Tomas Werle
NotSolved
Blau Aw:Aktive Series Collection im Chart ermitteln
15.06.2008 13:44:49 Holger
NotSolved
26.02.2015 11:09:32 Tom
NotSolved