---

Hallo!

Folgendes Problem:
Ich möchte per VBA abfrage ob der Farbstil "usercolor" vorhanden ist und in alktiv setzten.

So sieht derzeit mein Code aus, funzt aber net richtig.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Dim oPartDoc As PartDocument
Dim oRenderStyle As RenderStyle

Set oPartDoc = ThisApplication.ActiveDocument

For Each oRenderStyle In oPartDoc.RenderStyles
    If oRenderStyle.Name = ("usercolor") Then
        Set oRenderStyle = oPartDoc.RenderStyles.Item("usercolor")
        oPartDoc.Update
        Exit Sub
    Else
        Debug.Print "Farbstil *usercolor* nicht vorhanden"
    End If
Next

End Sub
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Warum wird der Farbstil "usercolor" nicht Aktiv??

Danke

------------------
Grüße aus den schönen Oberösterreich
Thomas
-------------
Für Grammatik- und Rechtschreibfehler wird keine Haftung übernommen.

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

---

Hallo Thomas,

guckst Du hier in API-Hilfe:

PartDocument.ActiveRenderStyle Property

Gruesse,

Paul

www.morecam.ch/cad.htm

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

---

Hallo Paul!

Das hab ich schon mal gesehen. Leider hab ich keine Ahnung wie die Syntax aussehen muss.

Bitte nochmals um HILFE.

Danke
Thomas

------------------
Grüße aus den schönen Oberösterreich
Thomas
-------------
Für Grammatik- und Rechtschreibfehler wird keine Haftung übernommen.

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

---

Hi, musst du mal so tun (is vielleicht des was du brauchst):

Code:

---

Public Sub setRenderStyle()

    Dim oAsm as AssemblyDocument
    Set oAsm = ThisApplication.ActiveDocument

    Dim oOcc As ComponentOccurrence
    Set oOcc = oAsm.ComponentDefinition.Occurrences(1)

    Dim oDoc As Document
    Set oDoc = oOcc.Definition.Document
    oDoc.ActiveRenderStyle = oDoc.RenderStyles.Item("usercolor")
    oDoc.Update
End Sub

---

---

Danke für eure Hilfe. Habs mitlerweile hinbekommen :-)

------------------
Grüße aus den schönen Oberösterreich
Thomas
-------------
Für Grammatik- und Rechtschreibfehler wird keine Haftung übernommen.

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

---

Wie?

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

---

Public Sub chgcolor()

Dim oPartDoc As PartDocument
Dim oRenderStyle As RenderStyle
Dim VarTrue As String
Dim VarFalse As String

Set oPartDoc = ThisApplication.ActiveDocument

For Each oRenderStyle In oPartDoc.RenderStyles
    If oRenderStyle.Name = ("usercolor") Then
        VarTrue = 1
    Else
        VarFalse = 0
    End If
Next
GoTo VarPruef
   
'Prüft die Variable VarTrue ob Wert=1
VarPruef:
If VarTrue = "1" Then
    oPartDoc.ActiveRenderStyle = oPartDoc.RenderStyles.Item("usercolor")
    oPartDoc.Update
Else
    oPartDoc.ActiveRenderStyle = oPartDoc.RenderStyles.Item("Standard")
    oPartDoc.RenderStyles.Add ("usercolor")
    oPartDoc.ActiveRenderStyle = oPartDoc.RenderStyles.Item("usercolor")
    oPartDoc.Update
End If

'Formular anzeigen
frmchgcolor.Show 1

EX:
Exit Sub

End Sub

------------------
Grüße aus den schönen Oberösterreich
Thomas
-------------
Für Grammatik- und Rechtschreibfehler wird keine Haftung übernommen.

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

---

Hallo!

Kann der Farbstil auch ein anderer als "usercolor" sein?

Vgl. hierzu: http://ww3.cad.de/foren/ubb/Forum258/HTML/000335.shtml

Gruß und Dank!

Arne

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

---

Den Namen des Farbstils kann man frei bestimmen.

Der Sinn meines Makros soll in Zukunft sein, dass man über eine Auswahlmenü die Farbe des Bauteils ändert. Dies passiert folgendermasen:
1 Farbstil "usercolor" erstellen und aktivieren
(zuvor muss natürlich geprüft werden ob der Farbstil schon existiert. Dies passiert durch zwei Abfragen)

2 Farbe des Stils ändern

------------------
Grüße aus den schönen Oberösterreich
Thomas
-------------
Für Grammatik- und Rechtschreibfehler wird keine Haftung übernommen.

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

---

Hallo Thomas,

verstehe ich es richtig, das die Farben im Bauteil "PartDocument" geändert werden sollen?

Sollen die Änderungen auch Auswirkungen auf Zusammenbauten iam, oder gar Zeichnungsableitungen idw haben?

Gruß und Dank!

Arne

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

---

Hallo Arne!

Mit "PartDocument" wird das aktuelle Bauteil angesprochen. Die Farbänderung hat keine Auswirkungen auf die Zeichnungsableitung.

------------------
Grüße aus den schönen Oberösterreich
Thomas
-------------
Für Grammatik- und Rechtschreibfehler wird keine Haftung übernommen.

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

---

Hallo Thomas,

ich habe das bereits befürchtet!:-(

Naja, ich gebe aber die Hoffnung nicht auf.

Gruß und Dank!

Arne

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