Corel Photopaint - Script ausführen aber Effekte nicht ausgeführt

[koter]

Hallo kede93,

mit dem Skript und der Datei ist alles in Ordnung.
Wir haben es mit einem Bug in X4 zu tun.
Das Skript läuft nur bei einer Zoomstufe von 100%.
Du kannst also die Zoomstufe manuell einstellen,
oder das Skript von einem Makro starten lassen,
das die Zoomstufe für Dich einstellt.

Beispiel:



Das Beispielmakro:

Code:

Sub ausführen()
    Dim Skriptdatei As CorelScriptFile
    zm = ActiveWindow.Zoom 'Zoom speichern
    ActiveWindow.Zoom = 100 'Zoom auf 100%
    Dateipfad = "C:\Corel\skript\" 'der Pfad zum Skript
    Dateiname = "kede93.csc" 'der Name des Skripts
    dn = Dateipfad & Dateiname
    Set Skriptdatei = OpenCorelScriptFile(dn) 'Skript öffnen
    Skriptdatei.Play ActiveDocument 'Skript starten
    ActiveWindow.Zoom = zm 'Zoom zurücksetzen
End Sub

Falls Du das Makro verwenden willst, musst Du den Pfad und den Dateinamen anpassen.
(Den letzten Backslash im Pfad nicht vergessen)

Der Effekt manuell angewendet funktioniert zwar,
aber auch „Effekt wiederholen“ (Strg+F) funktioniert nur bei einer Zoomstufe von 100%.

leider habe ich keine besseren Nachrichten für Dich.

Gruß

Koter

Nachtrag: Die Maske scheint von einer Vektorgrafik zu stammen, wäre es nicht besser das Ganze mit CorelDraw zu machen?