Word: 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