Makros

[Unkraut]

Norre fragt:

   Regina, ich finde, Norre klingt zu knorrig für eine Frau!    

Gut, hast Du VBA installiert? Ich glaube, es wird nicht automatisch installiert, sondern muss gesondert ausgewählt werden.

Früher musste man Scripts jeder neuen Version anpassen. Scripts begannen mit einer Zeile in der die Version stand, sie musste angepasst werden. Dann liefen die Scripts aus CorelDRAW Photo-Paint 9 auch noch unter X6.
Mehr dazu hier:
https://forum.juergens-workshops.de/show...ght=script*

Viele Grüße, Chris - das Unkraut

[pieksdi]

[quote pid='168547' dateline='1558863657']
   Regina, ich finde, Norre klingt zu knorrig für eine Frau!    

Gut, hast Du VBA installiert? Ich glaube, es wird nicht automatisch installiert, sondern muss gesondert ausgewählt werden.

Viele Grüße, Chris - das Unkraut
[/quote]

Unkraut ist ja auch nicht schlecht... Norre ist nicht mein Nick... ich bin pieksdi. Weiblich genug ?

VBA (ohne daß ich irgendwas drüber wüßte) muß wohl installiert sein, da ich ja in beiden Programmen Makros erzeugen und nutzen kann. Ich will sie ja nur in PP für 1-Klick-Nutzung in die Eigenschaftsleiste setzen können. Bei Draw klappt es ja.

[pieksdi]

PP öffnet zum Speichern des Makros meinen Ordner auf der Festplatte, wo das Makro als .csc gespeichert werden kann. Zusätzlich finde ich meine Makros unter Benutzer... roaming.... in einem Ordner "scripts".

Auf dem von Koter eingestellten Bild in Beitrag #2 sind die Makros als "Modul1" aufgelistet. Was ist das? Wie geht das? Könnte das helfen?
Seufz.

[Unkraut]

Unkraut ist ja auch nicht schlecht... Norre ist nicht mein Nick... ich bin pieksdi. Weiblich genug ?

VBA (ohne daß ich irgendwas drüber wüßte) muß wohl installiert sein, da ich ja in beiden Programmen Makros erzeugen und nutzen kann. Ich will sie ja nur in PP für 1-Klick-Nutzung in die Eigenschaftsleiste setzen können. Bei Draw klappt es ja.

Hallo Regina,
Nicht bemerkt? Du hattest auf meine Fragen geantwortet, mich aber mit Norre angeredet.

Du musst zwischen Makros und Scripts unterscheiden. Dateien, die mit .*csc enden, sind Scripts, Makros enden mit *.gms. Dem entsprechend musst Du eine .*csc mit → Script ausführen starten. Leider scheint "script ausführen" aus den Befehlen unter → Anpassung → Befehle → Extras verschwunden zu sein, so dass es mit 1-Klick-Lösung schwierig oder unmöglich werden werden könnte.

Viele Grüße, Chris

[pieksdi]

Ooops - entschuldige, Chris - bin schon ganz von der Rolle.
Vielen Dank für die Aufklärung. Auf dem Hintergrund werde ich mir das ganze nochmal anschauen.
Kannst Du auch den Unterschied zu "Modul" kurz erklären?

[koter]

Hallo Regina,

Kannst Du auch den Unterschied zu "Modul" kurz erklären?

Ein Modul ist ein Bestandteil eines VBA-Makroprojekts.
VBA ist eine andere Programmiersprache als CorelScript und soll diese irgendwann vollständig ersetzen.

Als Beispiel habe ich ein Projekt mit dem Namen „pieksdi1“ angelegt.
Im Projekt habe ich ein Modul mit dem Namen Regina1 angelegt.

Der Quellcode des Moduls:

Code:

Sub start()
   MsgBox "VBA startet ein Skript", , "Skript ausführen"
   Dim Skriptdatei As CorelScriptFile
   Set Skriptdatei = OpenCorelScriptFile("C:\temp\corelforum\Regina\Skripts\R1.csc") 'Skript öffnen
   Skriptdatei.Play ActiveDocument 'Skript starten
End Sub

Das Modul öffnet ein Skript und startet es.

Der Quellcode des Skripts:

Code:

MESSAGE "Ich bin ein Skript"

Das Makro habe ich auf die Eigenschaftsleiste gelegt:



Eine Möglichkeit ein Skript direkt auf eine Symbolleiste zu legen kenne ich nicht.
Ich habe X7. Ob das mit neueren Versionen klappt weiß ich nicht.
(einfach einmal ausprobieren)

Gruß

Koter

[pieksdi]

Vielen Dank an alle. Ich habe durch Eure freundlichen Erklärungen dazugelernt und verstehe nun die Hintergründe besser.

 Für mein Problem habe ich eine Annäherungslösung, das ist ja schon mal gut! Immerhin kann ich meine Scripts jetzt mit nur 2 Klicks starten, das ist ok.
Dazu habe ich den Befehl "Script ausführen" in die Eigenschaftsleiste gelegt. Der erste Klick öffnet dann meine Script-Liste, der 2. Klick startet das Script.

Gerettet, Danke!