---

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

---

ADN_PlugIn_Screenshot.PNG

Mahlzeit Luti91,

hierfür haben wir von Autodesk ein offizielles Werkzeug.

Vielleicht für Deine Belange interessant.
Ggf. mal startpage.com mit entsprechenden Suchbegriffen füttern...

Grüße
MB-Ing.

------------------
Wissen ist Macht. Nichts wissen macht auch nichts  

[Diese Nachricht wurde von mb-ing am 30. Okt. 2015 editiert.]

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

---

Bilder macht bei mir dieses Makro:

Code:

---

Sub png_lr()

Dim oDoc As Document
Set oDoc = ThisApplication.ActiveDocument

Dim oView As View
Set oView = oDoc.Views(1)

Set oCamera = oView.Camera
oCamera.Apply

Dim oTO As TransientObjects
Set oTO = ThisApplication.TransientObjects
Dim oTop As Color
Set oTop = oTO.CreateColor(255, 255, 255)

Dim oBottom As Color
Set oBottom = oTO.CreateColor(255, 255, 255)

Dim dsplmode As String
Dim i As Integer
Dim i2 As String
Dim FileName As String
Dim User As String
dsplmode = 0
If ThisApplication.ActiveView.DisplayMode = kShadedRendering Then
dsplmode = 1
ThisApplication.ActiveView.DisplayMode = kShadedWithEdgesRendering
End If
i = 0
For i = 1 To 99 Step 1
If i < 10 Then
i2 = "0" + CStr(i)
End If
If i > 9 Then
i2 = "" + CStr(i)
End If
FileName = Environ("USERPROFILE") & "\Desktop\Bild_lr_" + i2 + ".png"
If Dir(FileName) = "" Then Exit For
Next
oCamera.SaveAsBitmap FileName, 3840, 2160, oTop, oBottom
If dsplmode = 1 Then
ThisApplication.ActiveView.DisplayMode = kShadedRendering
End If
End Sub

---

Gruß Daniel

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