---

Hallo zusammen!

Ich hab mal eine Frage, vielleicht könnt ihr mir weiterhelfen.
Kann ich irgendwie aus einer Selection die Farbe der einzelnen Elemente auslesen?
Wie bekomme ich Zugriff auf die einzelnen Elemente?

MySelection.VisProperties.GetRealColor r, g, b
funktioniert nur insofern, als dass er mir die Farbe irgendeines Elements wiedergibt.
Ich bräucht aber quasi die des i. Items (mit i=1 to MySelection.count).

Dankeschön schonmal im voraus
Ciao
Max

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

... oder kann mir bitte jemand sagen wie man die einzelnen Elemente einer Selection anspricht?
geht das überhaupt?

Ciao
Max

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Max,

man kann schon einzelne Elemente einer Selection ansprechen mit

MySelection.Item(i)

Nur die Methode GetRealColor gilt immer für die ganze Selection.
Hier muß man also zu einem Trick greifen.

Zuerst speichert man die einzelnen Elemente der Selection in ein Array:

Dim SelElemente() As Object
ReDim SelElemente(MySelection.Count) 'Groesse des Feldes setzen
For i = 1 To MySelection.Count
  Set SelElemente(i) = MySelection.Item(i)
Next i

Dann löscht man die Selection und weist der Selection einzeln die gespeicherten Objecte zu und liest die Farben aus:

Dim r, g, b
For i = 1 To UBound(SelElemente)
  MySelection.Clear
  MySelection.Add SelElemente(i).Value
  MySelection.VisProperties.GetRealColor r, g, b
  Debug.Print CStr(r) + ";" + CStr(g) + ";" + CStr(b)
Next i

Ich hoffe, es hilft.

Gruß
Steffen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Vielen Dank! Funktioniert super!
Mit dem Array-Ansatz hab ichs auch probiert, hab aber dein "SelElemente" als Selection definiert gehabt und bin auf keinen grünen Zweig gekommen!
Also, vielen Dank nochmal
Ciao
Max

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Max,

es freut mich, dass es Dir hilft.

Der Typ von MySelection.Item(i) ist "SelectedElement".
Man könnte also auch schreiben:

Dim SelElemente() As SelectedElement

Ursprünglich hatte ich aber nicht das Item im Array gespeichert sondern direkt das ausgewählte Objekt

Set SelElemente(i) = MySelection.Item(i).Value

Da hier aber der Typ unbekannt ist, habe ich das Array als "Object" definiert.

Gruß
Steffen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP