Grafik verzerren

[Karthagos]

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:

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?