Grafik verzerrren

[Karthagos]

habe gestern versehentlich diesen Beitrag im CorelDraw-Forum gepostet, gehört natürlich in PhotoPaint 
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?