---

Hallo Leute, kann mir bitte jemand helfen?

ich suche im Netz und Hilfeseite von Inventor VBA usw. ganz fleißig nach Antworten auf meine Fragen, aber trotzdem habe ich folgendes Problem:

Ich möchte, dass meine Zeichnung beim Load ganz normal Weiß ist, nach einer Change Ereignis aber eine Farbe bekommt. Wenn ich auf ein Bestimtes Script (das ich schon geschrieben habe) drucke, soll die Zeichnung wieder weiß werden.

Mein Code sieht so aus:

--> beim Aufmachen der Zeichnung:

Public Sub ThisDocument_Load()

Dim colordoc As DrawingDocument
Set colordoc = ThisApplication.ActiveDocument
colordoc.SheetSettings.SheetColor = ThisApplication.TransientObjects.CreateColor(255, 255, 255,)
End Sub

zum Change:

Public Sub ThisDocument_change()

Dim colordoc As DrawingDocument
Set colordoc = ThisApplication.ActiveDocument

colordoc.SheetSettings.SheetColor = ThisApplication.TransientObjects.CreateColor(255, 153, 204)
End Sub

und im Script am Ende nochmals:

    Dim oFarbe As DrawingDocument
    Set oFarbe = ThisApplication.ActiveDocument
    oFarbe.SheetSettings.SheetColor = ThisApplication.TransientObjects.CreateColor(255, 255, 255)

Meine Frage:

Wo soll ich die Subs _Change und _Load tun? Also ich meine, gibt es einen Standart Modul das standartmäßig startet und welches ich abändern kann? Oder soll ich diese zwei Subs auch in dem Modul reinschreiben, in dem, alle andere Skripte sind? Irgendwie finde ich nichts wie default Funktionen oder so.

Vielen Dank im Voraus
Beste Grüße
Endu

[Diese Nachricht wurde von Enduro am 02. Aug. 2012 editiert.]

[Diese Nachricht wurde von Enduro am 02. Aug. 2012 editiert.]

[Diese Nachricht wurde von Enduro am 02. Aug. 2012 editiert.]

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

---

Hallo

Was hab ich zum Thema AutoMakros gesagt? Lies bitte das und danach das.
Zum Einsatz von AutoMakros werde ich mich nicht weiter äußern.

------------------
MfG
Ralf

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

---

Hallo Ralf,

ich wusste ja nicht dass das mit AutoMakros zu tun hat     

Das andere Problem habe ich übrigens ganz anders gelöst.  

Aber hast du vlt trotzdem noch eine Idee wie ich das mit Farben anders realisieren könnte?

VG Endu

[Diese Nachricht wurde von Enduro am 02. Aug. 2012 editiert.]

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

---

Hallo

Ich hab noch nicht ganz verstanden wann und warum die Farbe geändert werden soll. Versuchst du damit zu signalisieren, das die Zeichnung geändert aber noch nicht gedruckt wurde???
Egal wie, versuche das nicht weiter in VBA. Das wird immer schwieriger, da VBA einiges an Funktionalität gar nicht bietet. Bei den Events bist du selbst darauf gekommen. 64bit und ErrorHandling wären die nächsten Themen.
Für den Start mit .Net lies mal den Beitrag und schau dir das Paper und das Sample File an.

------------------
MfG
Ralf

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

---

Genau das versuche ich zu signalisieren, Du hast es richtig erfasst. Es ist aber nicht nur PDF drucken sondern PDF drucken mit neuer Name. Dieser Name besteht dann aus der Dokummentenname und der Revisionsnummer.

Okay, .NET? mach ich...

Vielen Dank! 

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