Bild in Positionsrahmen verschieben

Sprache / Programm: Word ab Version 97

Beschreibung

Mit Positionsrahmen konnten Grafiken in Word 95 sehr einfach positioniert und mit zusätzlichem Text ausgestattet werden.

Seit Word 97 wird es immer schwieriger, Positionsrahmen anzulegen, seit Word 2000 ist der Mechanismus völlig kompliziert.

Das Makro verschiebt den markierten Bereich automatisch in einen Positionsrahmen.

VBA-Quelltext

Sub BildInPositionRahmen()
Application.ScreenUpdating = False
With Selection
.Copy
.CreateTextbox
.ShapeRange.ConvertToFrame
End With

With Selection.Frames(1)
.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
.Borders(wdBorderRight).LineStyle = wdLineStyleNone
.Borders(wdBorderTop).LineStyle = wdLineStyleNone
.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
.Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone
.Borders.Shadow = False
.WidthRule = wdFrameAuto
.HeightRule = wdFrameAuto
.HorizontalPosition = wdFrameRight
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
.VerticalPosition = 0
.RelativeVerticalPosition = wdRelativeVerticalPositionParagraph
.HorizontalDistanceFromText = CentimetersToPoints(0.25)
.VerticalDistanceFromText = 0
End With
Selection.Paste
End Sub

Anwendungsgebiete, Fehler und Warnungen

Es muss ein ganzer Absatz mit Absatzmarke mit markiert werden. Spezielle Formatvorlagen sollten vor der Anwendung des Makros dem Absatz zugewiesen werden.