Macro Text verschieben

[Unkraut]

Kann es am Font liegen?
(Die "textebene" hatte ich vor der Ausführung des Makros erstellt.)

Code:

Sub Macro2()
    ' Recorded 21.10.2013
    ActiveDocument.CreateShapeRangeFromArray(ActiveLayer.Shapes(5), ActiveLayer.Shapes(4), ActiveLayer.Shapes(3), ActiveLayer.Shapes(2), ActiveLayer.Shapes(1)).Cut
    Dim pasteopt As StructPasteOptions
    Set pasteopt = CreateStructPasteOptions
    With pasteopt.ColorConversionOptions
        .SourceColorProfileList = "sRGB IEC61966-2.1,ISO Coated v2 (ECI),Gray Gamma 2.2"
        .TargetColorProfileList = "sRGB IEC61966-2.1,ISO Coated v2 (ECI),Gray Gamma 2.2"
    End With
    Dim Paste1 As ShapeRange
    Set Paste1 = ActivePage.Layers("textebene").PasteEx(pasteopt)
End Sub

die letzten Gartentomaten (vom Markt) des Jahres warten auf Kräuter und daaaaas Kraut