---

Hallo,
ist es mit VBA möglich, die Farbe eines Kreis in einer BG-Skizze zu ändern?

Hab's geschaft.

Public Sub ChangeLineColor()
Dim oSketch As Sketch
Set oSketch = ThisApplication.ActiveEditObject

Dim oColor As Color
Set oColor = ThisApplication.TransientObjects.CreateColor(255, 0, 0) '
red

oSketch.SketchLines(1).OverrideColor = oColor
End Sub

------------------

          Gruß
          Hans-Peter     

     

[Diese Nachricht wurde von SHP am 21. Jan. 2007 editiert.]

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