title image


Smiley Grafik verschieben wohin?
Dietmar,



ich dachte du wolltest nur den Text verankern.



zum Verschieben mußt du die Werte angeben hier zB. in punkten



Selection.ShapeRange.IncrementLeft 79.15 ' von links

Selection.ShapeRange.IncrementTop 2.45 ' von oben

Selection.ShapeRange.IncrementTop 45# ' ein 2. * von oben um weitere 45 Punkte



'---- oder



'(Eine Shape wird auf der ersten Seite des Dokumentes eingebracht

' und am rechten Textrand ausgerichtet.)



Sub GrafikAlsShapeObenRechtsAufDerErstenSeiteEinbringen()

Dim oShape As Shape, oRange As Range

Set oRange = ActiveDocument.Paragraphs(1).Range

Pfad = "C:\bilder\hack9.gif" ' Bild, welches eingefügt werden soll

Set oShape = ActiveDocument.Shapes.AddPicture(FileName:=Pfad, _

LinkToFile:=True, SaveWithDocument:=False, Anchor:=oRange)

oShape.WrapFormat.Type = wdWrapSquare

oShape.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin

oShape.Left = wdShapeRight

End Sub



'#------ oder die Vorgabe in cm (="Strich" aus Makro Faltmarke)

'...

Left:=CentimetersToPoints(0.5) ' vom Seitenrand 5 mm

Top:=CentimetersToPoints(14.85) ' Mitte Blatt 14,85 cm

Width:=CentimetersToPoints(0.4) 'Länge 4 mm

Height:=CentimetersToPoints(0.005) '=Strichstärke



Gruß Bernhard



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: