---

Testmakro.txt

Einen wunderschönen Guten Morgen an alle Makro Programmierer,

ich hoffe mir kann einer bei meinen folgenden Problem helfen, für einen erfahrenen Makroprogrammierer dürfte das ein klacks sein.

Hab über die Makroaufzeichnung mein Makro erstellt, das auch mit ein paar kleine Modifizierungen jetzt ganz gut läuft.
Nur jetzt will ich noch einige Elemente wie z.B.: eine Ebene umfärben
Und das hab ich nicht hinbekommen da meine Makrokenntnisse sehr begrenzt sind.

BITTE, BITTE helft mir weiter
Hab mal ein Bsp. als Anhang hingehängt, kann mir einer die paar Zeilen die ich zum färben benötige erstellen?
Die Farbe soll 0,255,255 sein

Vielen DANKE

Gruß Tonga 

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

---

Hallo Tonga,

hast du ein Glück, daß ich so etwas ähnliches heute gemacht habe!
Wenn ich mich recht erinnere, mußt Du die folgenden Zeilen zwischen "part1.Update" und "End Sub" einfügen:

Code:

---

Dim Selection1 As Selection 'bei Fehler Object anstelle Selection!
Set Selection1 = partDocument1.Selection

Selection1.Clear
Selection1.Add hybridShapePlaneOffset1

Selection1.VisProperties.SetVisibleColor 0,255,255,0

---

mfg,
Lusilnie

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

---

Hi Lusilnie,

ich danke dir vielmals für deine Hilfe!!!
Hat so geklappt wie du es geschrieben hast.
Meine anderen Elemente konnte ich alle nach der selben Methode einfärben.

Du bist spitze!!!
10 U's für Dich

Gruß Tonga 

PS.: Schönen Faschingsdienstag

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