---

Hallo,

mit diesem Makro kann man den Glanz und die Deckkraft einstellen.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub test()
   
Dim oPartDoc As PartDocument
Set oPartDoc = ThisApplication.ActiveDocument
Dim oStyle As RenderStyle
Set oStyle = oPartDoc.RenderStyles.Item("Standard")
oStyle.Opacity = 1        ' Deckkraft  double 0.0  bis 1.0
oStyle.Reflectivity = 10  ' Glanz      integer  1 bis 100
oPartDoc.Update
End Sub
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Wie müßte der Befehl lauten wenn man den aktuell eingestellten Glanz bzw. Deckkraft auslesen möchte.

Msgbox oStyle.Opacity.value  usw. führt zu Error

Für Eure Infos schon mal Dank im voraus.

MFG

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

---

Sorry hat sich erledigt!

mit  oStyle.Opacity
bzw. oStyle.Reflectivity

[Diese Nachricht wurde von VOSTA1 am 10. Dez. 2004 editiert.]

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