Absatznumerierung an der Oberkante von eingefügten Grafiken ausrichten

Fügt man in Word eine Grafik ein, die höher als eine Zeile ist, so rutscht der umgebende Text nach unten. Das ist besonders bei numerierten Absätzen unangenehm, denn die Absatznummer sollte bündig mit der Oberkante der Grafik erscheinen.
Diesen Effekt können Sie jedoch mit dem unten aufgeführten Makro erreichen: Es mißt die Höhe der eingefügten Grafik und berechnet, wie stark die Zeichenformatierung für die Numerierung nach oben gesetzt werden muß. Danach stellt das Makro die Absatznummer um dieses Maß nach oben. Setzen Sie, bevor Sie das Makro starten, den Mauszeiger unmittelbar vor die eingefügte Grafik. Nach der Ausführung des Makros ist die Oberkante der Numerierung mit der Oberkante der Grafik bündig.
Makrolisting AbsatznummerOben:
Sub MAIN
BearbeitenSuchen .Suchen = "^r"
Dim dlg As FormatGrafik
GetCurValues dlg
Höhe$ = dlg.GrößeY
Schriftgröße = Schriftgrad() * 0.0353
Unterlänge = Schriftgröße / 4
AbsatzUnten
ZeichenLinks 1, 1
Hochstellung = Val(Höhe$) + Unterlänge - Schriftgröße
FormatZeichen .Position = Str$(Hochstellung) + " cm"
End Sub