Hallo RFischer,
mit
Set FST = objDoc.FaceStyles.Add(Name As String, Parent As String) kannst du einen neuen FaceStyle erzeugen, den String für Parent erhälst du am besten mit Parent=objDoc.FaceStyles(1).Parent, das ganze ist ein bisserl fehleranfällig.
Dann brauchst du nur mehr einige ;-)Eigenschaften ausfüllen, Bumpmaps-, Skybox- und Texture-Eigenschaften kannst du weglassen, wenn beim Parent keine vorhanden sind, aber um SetAmbient, SetEmmission, SetWireframeColor,SetDiffuse, SetSpecular, Opacity, Reflectivity und einige andere wirst du nicht herumkommen.
viel spass dabei pablo
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP