Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
12.06.2008 14:04:24 |
Tomas Werle |
|
|
Aw:Aktive Series Collection im Chart ermitteln |
15.06.2008 13:44:49 |
Holger |
|
|
|
26.02.2015 11:09:32 |
Tom |
|
|
Von:
Holger |
Datum:
15.06.2008 13:44:49 |
Views:
1002 |
Rating:
|
Antwort:
|
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 |
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
Aw:Aktive Series Collection im Chart ermitteln |
15.06.2008 13:44:49 |
Holger |
|
|
|
26.02.2015 11:09:32 |
Tom |
|
|