---

Hallo Zusammen

Ich habe für den künftigen Einsatz im Betrieb ein Makro erstellt, welches die Hintergrundfarbe in der Bauteil oder Baugruppenumgebung ändern Kann. Wir nutzten diese Funktion oft um Bilder für Dokumentationen und Mails zu erstellen.

Die UserForm esitzt zwei Knöpfe mit der Aufschrift "Weiss" und "Blau"

Bei dem Weissen wird der 3D-Indicator ausgeblendet und der Hintergrund auf "Präsentation" umgestellt.

Code:

---

Private Sub weiss_Click()
ThisApplication.ColorSchemes.Item("Millennium").Activate
ThisApplication.DisplayOptions.Show3DIndicator = False
ThisApplication.ColorSchemes.Item("Präsentation").Activate
End Sub

---

Bei dem Blauen wird der 3D-Indicator eingeblendet und der Hintergrund auf "Millennium" umgestellt.

Code:

---

Private Sub blau_Click()
ThisApplication.ColorSchemes.Item("Präsentation").Activate
ThisApplication.DisplayOptions.Show3DIndicator = True
ThisApplication.ColorSchemes.Item("Millennium").Activate
End Sub

---

Jetzt tauchte aber bei beiden Buttons das Problem auf, dass die Farben der Icons zusätzlich auf Weiss gestellt werden und der Rechner braucht einige Momente bis er das gemacht hat. Anschliessend kann man hin- und herklicken ohne Wartezeit.

Was mache ich falsch, bzw. wieso werden diese Icons umgestellt. Ich möchte gerne dass die Farbe der Icons nicht beeinflusst werden. Für diese Funktion müssten ja folgende Sätzte noch irgendwo stehen.

Code:

---

ThisApplication.ColorSchemes.IconsColor = kAmberColorTheme
ThisApplication.ColorSchemes.IconsColor = kCobaltColorTheme

---

Ich hoffe Jemand kann mir bei dieser Misere weiterhelfen.

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

---

Hallo,

Bei mir werden die Icons nicht umgestellt?

Versuche mal den Code hier, der ist auch hier aus dem Forum

Code:

---

Public Sub Background_Switch()
    If ThisApplication.ColorSchemes.BackgroundType = kGradientBackgroundType Then
        ThisApplication.ColorSchemes.Item("Präsentation").Activate
        ThisApplication.ColorSchemes.BackgroundType = kOneColorBackgroundType
    Else
        ThisApplication.ColorSchemes.Item("Millennium").Activate
        ThisApplication.ColorSchemes.BackgroundType = kGradientBackgroundType
    End If
End Sub

---

Gruß Berno

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

---

Danke für den Tipp zum Code.
Es schaltet mir meine Icon-Farben dennoch um. Wenn die Icons auf "Gelb" umgestellt sind, wechselt Inventor sie kurzerhand in "Weiss" um. Ab dann läuft dann immer alles einwandfrei per Knopfdruck.

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

---

Hallo Luti91,

ich habe das Problem so gelöst, dass ich den Hintergrund auf weiß stelle.
Dazu habe ich ein PNG mit weißem Inhalt und stelle den Background um:

Code:

---

Dim oldBakground As BackgroundTypeEnum  'am Ende wieder herstellen
oldBakground = ThisApplication.ColorSchemes.BackgroundType

ThisApplication.ColorSchemes.ImageFullFileName = "..irgendwo gespeicherte \Backgrounds\weiss.png"
ThisApplication.ColorSchemes.BackgroundType = kImageBackgroundType  'weißer Hintergrund mit Bild "weiss.png"

' *** Ausdrucken
' oder irgend etwas machen

ThisApplication.ColorSchemes.BackgroundType = oldBakground  'Hintergrund wieder herstellen

---

------------------
Gruß Roland

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

---

Danke für den Hinweis, das wäre eine gangbare Lösung. Jedoch klappt das mit dem oldBackground nicht. Bei mir im VBA-Editor lässt sich das nicht anwählen bzw. wird nicht erkannt. Kann das an unserer veralteten Inventor Version liegen?

[Diese Nachricht wurde von Luti91 am 02. Nov. 2015 editiert.]

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

---

Hast du den:

Code:

---

Dim oldBakground As BackgroundTypeEnum
oldBakground = ThisApplication.ColorSchemes.BackgroundType

---

Auch definiert? das oldBakground ist einfach eine Variable
Kannst es auch "alterhintergrund" nennen xD

Aber ja das das immer umspringt ist normal hab ich auch ist einfach ein Fehler.
Habe es so gelöst das ich es eben immer beim Wechseln mit umstelle auf Bunte Symbole.

------------------
Grüße aus Wien
Philipp
Email: Base64 Encoded:
cGhpcHNfOTJAeWFob28uZGU=

[Diese Nachricht wurde von axi92 am 05. Nov. 2015 editiert.]

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