Grafik verzerrren - Druckversion

Grafik verzerrren - 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: Grafik verzerrren (/showthread.php?tid=38926)

Grafik verzerrren - Karthagos - 08.06.2026

habe gestern versehentlich diesen Beitrag im CorelDraw-Forum gepostet, gehört natürlich in PhotoPaint MrGreen

nachdem ich relativ häufig Grafiken mit dem Verzerrmodus bearbeite, hatte mit Koter ein (bzw. sogar zwei) Makros geschrieben, um schnell in diesen Modus zu gelangen.

Code:
Code:

Sub Verzerren()

  ActiveDocument.Background.ConvertToLayer

  With Application.FrameWork.Automation

      .InvokeItem "2d9cb0c1-bc89-4eeb-b2e1-f70629882b9d"

      .InvokeItem "578a71ac-6361-dea7-471d-edff86fdcf25"Habe es

  End With

End Sub

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

ich nutze das erste Makro, nicht das zweite mit den Tastaturanschlägen und habe es mir als Icon in die Symbolleiste eingefügt. Jetzt muss ich allerdings jedes mal vor Nutzung mit Strg+A das Objekt markieren, damit es funktioniert. Kann man diesen Befehl auch noch in das Makro einbauen?

RE: Grafik verzerrren - koter - 08.06.2026

Hallo Günther,

Das Makro erzeugt ein Objekt aus dem Hintergrund und schaltet dann in den Verzerren-Modus.
Strg+A markiert kein Objekt, sondern erzeugt eine Maske. Eine Maske ist aber für das Makro nicht nötig.

Meinst Du vielleicht ein anderes Makro?

Gruß

Koter

RE: Grafik verzerrren - Karthagos - 08.06.2026

Hallo Koter,

eben getestet, Du hast natürlich (wie immer) recht.
Warum ich mir eingebildet habe, ich müsste erst Strg+A drücken, kann ich auch nicht mehr nachvollziehen.
Wahrscheinlich partielle Amnesie, dem Alter geschuldet Mad

Hoffe, es geht Dir gut