Word 2007 VBA - Positionierung eines Shapes zentriert in Bezug auf die Seitengröße

04/10/2010 - 12:04 von Alexander Kerensky | Report spam
Hallo,

ich möchte ein Bild zentriert in Bezug auf die Seitengröße in der
Kopfzeile erstellen (quasi als Hintergrundbild). Das Problem dabei ist
dass sich das Shape immer am Seitenrand orientiert. Es soll aber immer
gleich aussehen, egal welche Seitenrànder eingestellt sind.

Mein Code:

Set shp = ActiveDocument.Shapes.AddPicture( _
FileName:=strBild, Anchor:=rng, LinkToFile:=False,
SaveWithDocument:=True, Left:.25, Top:9.85)

With shp
.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
.RelativeHorizontalSize = wdRelativeHorizontalSizePage
.RelativeVerticalSize = wdRelativeVerticalSizePage
End With
 

Lesen sie die antworten

#1 Bernhard Sander
06/10/2010 - 12:01 | Warnen spam
Hallo Alexander,

Hallo,

ich möchte ein Bild zentriert in Bezug auf die Seitengröße in der
Kopfzeile erstellen (quasi als Hintergrundbild). Das Problem dabei ist
dass sich das Shape immer am Seitenrand orientiert. Es soll aber immer
gleich aussehen, egal welche Seitenrànder eingestellt sind.

Mein Code:

Set shp = ActiveDocument.Shapes.AddPicture( _
FileName:=strBild, Anchor:=rng, LinkToFile:=False,
SaveWithDocument:=True, Left:.25, Top:9.85)

With shp
.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
.RelativeHorizontalSize = wdRelativeHorizontalSizePage
.RelativeVerticalSize = wdRelativeVerticalSizePage
End With



.RelativeHorizontalSize hat nichts mit .RelativeHorizontalPosition zu tun
sondern arbeitet mit .WidthRelative zusammen.
Dagegen benötigt .RelativeHorizontalPosition weitere Angaben in .Left
(in der Vertikalen gilt Entsprechendes).

Probier's mal damit:

With shp
.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
.Left = wdShapeCenter
.Top = wdShapeCenter
End With

Gruß
Bernhard Sander

Ähnliche fragen