Juergens-Workshops.de Forum
Tastenfolge als Makro - Druckversion

+- Juergens-Workshops.de Forum (https://forum.juergens-workshops.de)
+-- Forum: Corel Grafik Forum (https://forum.juergens-workshops.de/forumdisplay.php?fid=65)
+--- Forum: Corel Photo Paint (https://forum.juergens-workshops.de/forumdisplay.php?fid=94)
+--- Thema: Tastenfolge als Makro (/showthread.php?tid=38844)

Tastenfolge als Makro - Karthagos - 02.10.2025

um das aktuelle Bild schnell in den Verzerrmodus zu bekommen, ich benötige folgende Tastenfolge als Makro

Strg+a
Strg+x
Strg+v
Alt+v

Alt+v wäre %v, so habe ich es in einem der schönen "Koter-Makros" gelesen, aber weiter bin ich noch nicht gekommen.

RE: Tastenfolge als Makro - koter - 03.10.2025

Hallo Günther,

Code:
Sub TKverzerren()
   SendKeys "^a"
   SendKeys "^x"
   SendKeys "^v"
   SendKeys "%v"
End Sub

Gruß

Koter

RE: Tastenfolge als Makro - Karthagos - 03.10.2025

Hallo Koter,

Super, vielen Dank, einen schönen Feiertag und ein schönes Wochenende

RE: Tastenfolge als Makro - Litschi - 03.10.2025

(03.10.2025, 08:14)koter schrieb: Hallo Günther,

Code:
Sub TKverzerren()
   SendKeys "^a"
   SendKeys "^x"
   SendKeys "^v"
   SendKeys "%v"
End Sub

Gruß

Koter

Eventuell kann man nach SendKeys eine kurze Pause einbinden für die Stabilität.

Code:
Sub TKverzerren()
   SendKeys "^a"
   KurzePause
   SendKeys "^x"
   KurzePause
   SendKeys "^v"
   KurzePause
   SendKeys "%v"
End Sub

Private Sub KurzePause()
    Dim PauseTime As Double
   PauseTime = Timer + 0.4
   Do While Timer < PauseTime
       DoEvents
   Loop
End Sub


RE: Tastenfolge als Makro - koter - 03.10.2025

Hallo Litschi,

sehr guter Vorschlag!

So steigt die Wahrscheinlichkeit, dass die gesendeten Tastenanschläge
ordentlich nacheinander abgearbeitet werden.

Günter will wahrscheinlich Tastenanschläge, um selbst noch welche dazwischen basteln zu können.

ich versuche „SendKeys“ möglichst zu vermeiden.

Mit PP X7 ginge das so:

Code:
Sub Verzerrer()
   ActiveDocument.Background.ConvertToLayer
   With Application.FrameWork.Automation
       .InvokeItem "2d9cb0c1-bc89-4eeb-b2e1-f70629882b9d"
       .InvokeItem "578a71ac-6361-dea7-471d-edff86fdcf25"
   End With
End Sub

Gruß

Koter

RE: Tastenfolge als Makro - Karthagos - 03.10.2025

Hallo Litschi, hallo Koter,

vielen Dank für Eure Vorschläge, habe ich leider erst jetzt gesehen (fehlende eMail-Benachrichtigung des Forums  Sad )
Mit den sendKeys aus ersten Makro von Koter hat es allerdings heute problemlos geklappt, werde die anderen aber jetzt auch mal testen.

Schönen Restfeiertag

RE: Tastenfolge als Makro - Karthagos - 03.10.2025

Hallo Koter,

habe Dein neues Makro direkt ausprobiert, funktioniert ebenfalls perfekt, deswegen werde ich jetzt dieses nutzen statt der Tastenanschläge.
Hat auch ein schönes Icon in meiner Symbolleiste bekommen  Wink
[attachment=22328]

RE: Tastenfolge als Makro - Karthagos - 06.10.2025

Hallo Koter,

seltsam, heute morgen funktioniert Dein Makro
Code:
Sub Verzerrer()
  ActiveDocument.Background.ConvertToLayer
  With Application.FrameWork.Automation
      .InvokeItem "2d9cb0c1-bc89-4eeb-b2e1-f70629882b9d"
      .InvokeItem "578a71ac-6361-dea7-471d-edff86fdcf25"
  End With
End Sub

nicht mehr, bringt folgende Fehlermeldung:
[attachment=22339]
woran kann das liegen?

RE: Tastenfolge als Makro - koter - 06.10.2025

Hallo Günther,

Die Fehlermeldung erscheint, wenn kein Dokument geöffnet ist
oder das aktive Dokument keinen Hintergrund hat.

Gruß

Koter

RE: Tastenfolge als Makro - Karthagos - 06.10.2025

Hallo Koter,
kann das leider nicht mehr nachvollziehen, bei welchem Bild es nicht geklappt hat, war aber bei mehreren, die ich dann testweise geöffnet hatte. Das ich kein  Bild geöffnet hatte, kann nicht sein.

Jetzt habe ich wieder eine ganze Reihe geöffnet und es hat bei allen einwandfrei geklappt.
Sollte es wieder vorkommen, werde ich mich mit mehr Details wieder melden.

Vielen Dank für Deine Rückmeldung Daumenhoch