Inhalte von Excel-Tabelle in Listfeld

[koter]

Hallo Stefan,

Ich habe den Code der Effekt-Prozedur mit Kommentaren versehen. So solltest Du die Parameter finden:

Code:

Sub Effekte()
   Dim CDraw As Object, s As Object
   Dim Effekt
   Set CDraw = CDrawObj
   CDraw.ActiveDocument.Unit = 3
   
   ' Gruppieren um allen Objekten gemeinsam Perspektive und Schtten zu verleihen:
   Set s = CDrawObj.ActivePage.Shapes.All.Group
   
   'Perspektive:
   Set Effekt = s.CreatePerspective(s.CenterX, s.CenterY)
   Effekt.Perspective.HorizVanishingPointX = s.LeftX - s.SizeWidth * 5  '(X-Koordinate des horizontalen Fluchtpunkts)
   
   'Schatten:
   Set Effekt = s.CreateDropShadow(0, , , , , CDraw.CreateCMYKColor(0, 0, 0, 100), , , , , , 0)
   With Effekt.DropShadow
       .OffsetX = 5  ' X-Abstand
       .OffsetY = 5  ' Y-Abstand
       .MergeMode = 9  'Zusammenführungsmodus
       .Opacity = 5  'Deckkraft
       .Feather = 5  'Verlauf
   End With
End Sub

Der Abstand des horizontalen Fluchtpunkts ist mit der fünffachen Breite des Objekts angegeben. Den Faktor musst Du Deinen Bedürfnissen anpassen oder den Abstand anders angeben.

Wenn Du die Effekte nicht allen Objekten gemeinsam, sondern jedem Objekt einzeln zuweisen willst, musst Du das in einer Schleife abarbeiten lassen. Die Gruppierung fällt dann weg.

Gruß

Koter