VBA-Größe der Punkte im Diagramm

Forumthread: VBA-Größe der Punkte im Diagramm

05.02.2007 16:04:19

Peter aus Berlin

Hallo,
ich habe ein X-,Y-Punktdiagramm auf einem Diagrammblatt ("Pflanzungs-Karte").
In ein vorhandenes Makro möchte ich folgende Problemlösung einbauen.
1. Es soll prüfen ob alle Punkte die selbe Größe haben, wenn ja dann sollen alle Punkte die Größe aus dem Tabellenblatt "Hilfe" Zelle "AR3" bekommen.
so in etwa: Charts("Pflanzungs-Karte").SeriesCollection(1).MarkerSize = Sheets("Hilfe").Range("$AR$3").Value
2. Wenn nicht alle die selbe Größe haben (in dem Fall ist nur ein Punkt größer als die anderen) soll dieser seine Größe aus Zelle "AR4" bekommen.
Charts("Pflanzungs-Karte").SeriesCollection(1).MarkerSize = Sheets("Hilfe").Range("$AR$4").Value
Die anderen Punkte sollen weiterhin ihre Größe aus "AR3" bekommen.
Kann mir jemand dabei helfen?
Grüße aus Berlin

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA-Größe der Punkte im Diagramm

06.02.2007 11:13:21

fcs
funktioniert mit kleiner Änderung

06.02.2007 19:11:43

Peter aus Berlin

AW: VBA-Größe der Punkte im Diagramm

06.02.2007 11:13:21

fcs

Hallo Peter,
hier mein Vorschlag zur Lösung deines Problems
Gruß
Franz


Sub PunktGroesse()
' PunktGroesse Makro
' Linien-Diagramm Punktgröße Markierung
Dim Reihe As Series, Punkt2 As Integer, Punkt1Anz As Integer, I As Integer
Set Reihe = Charts("Pflanzungs-Karte").SeriesCollection(1)
Punkt1Anz = 1 'Anzahl Punkte mit Markersize vom 1. Punkt
For I = 2 To Reihe.Points.Count
If Reihe.Points(I).MarkerSize <> Reihe.Points(1).MarkerSize Then
Punkt2 = I
Else
Punkt1Anz = Punkt1Anz + Punkt1Anz
End If
Next
If Punkt1Anz = Reihe.Points.Count Then
'Alle Punkte haben gleiche Größe
Reihe.Points.MarkerSize = Worksheets("Hilfe").Range("AR3").Value
Else
If Punkt1Anz = 1 Then Punkt2 = 1 '1. Punkt hat andere Größe
For I = 1 To Reihe.Points.Count
If I = Punkt2 Then
Reihe.Points(I).MarkerSize = Worksheets("Hilfe").Range("AR4").Value
Else
Reihe.Points(I).MarkerSize = Worksheets("Hilfe").Range("AR3").Value
End If
Next
End If
End Sub

funktioniert mit kleiner Änderung

06.02.2007 19:11:43

Peter aus Berlin

Hallo Franz,
ich mußte nur an einer Stelle eine Änderung vornehmen.
Vorher: Punkt1Anz = Punkt1Anz + Punkt1Anz
Nacher: Punkt1Anz = Punkt1Anz + I
Danke
Grüße aus Berlin

Beliebteste Forumthreads (12 Monate)

VBA-Größe der Punkte im Diagramm

Forumthread: VBA-Größe der Punkte im Diagramm

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread