Grafik einfügen und positionieren
Marco Wales
ich möchte gerne eine Grafik in das aktive Dokument einfügen
und diese dann genau Positionieren.
Das Einfügen war relativ einfach, aber ich begreife nicht wie es
möglich ist diese Grafik auszurichten ohne dabei eine Textbox
zu benutzen.
Bei der Grafik handelt es sich um ein Logo (Bmp) das auf jeder
Seite oben rechts erscheinen soll.
Ob ich nun eine relative Position zum Seitenrand benutzen muß
oder eine absolute Position in der Seite in mir egal.
Zum einfügen benutze ich folgendes Makro:
..
Dim Bild As InlineShape
Set Bild = Selection.InlineShapes.AddPicture( _
FileName:=filePath, _
LinkToFile:=True, _
SaveWithDocument:=False)
With Bild
.LockAspectRatio = True
.Height = MillimetersToPoints(17)
.Width = MillimetersToPoints(45)
End With
.. usw
Wie gelingt es mir nun das eingefügte Bild an die gewünschte Position
zu bringen bzw. das Bild dort einzufügen?
Hat jemand eine Idee, oder besser weiß eine Lösung...
ciao marco
Marco Wales
vielen Dank für deine Hilfe; so klappt es hervorragend!
Gruss
Marco
Message by Silvia Widmer <repr...@ksc.th.com> on: 11.05.00 01:37:46
>Hallo Marco
>
>Man muss klar zwischen einer InLineShape und einer Shape unterscheiden.
>
>Eine InLineShape (Option Über den Text legen DEaktiviert) wird wie ein
>Zeichen in das Dokument eingefügt. Man kann eine InLineShape zwar in einen
>anderen Absatz verschieben, vor ein anders Zeichen, etc. kann sie aber
>niemals Millimeter-genau positionieren. Du kannst ja auch nicht ein A mit
>Koordinatenangaben in das Dokument einbringen.
>
>Shapes (Option Über den Text legen aktiviert) dagegen sind "floating", also
>völlig frei beweglich und nicht mit dem Text verbunden.
>
>Versuche es wie folgt:
>
>
>Gruss
>Silvia Widmer
>
>
>Sub TestE()
> Dim Bild As Shape
> Set Bild = ActiveDocument.Shapes.AddPicture( _
> FileName:="C:\Eigene Dateien\Eigene Bilder\Chemie.jpg", _
> LinkToFile:=True, _
> SaveWithDocument:=False)
> With Bild
> .LockAspectRatio = True
> .Left = MillimetersToPoints(25)
> .Top = MillimetersToPoints(25)
> .Height = MillimetersToPoints(17)
> End With
>End Sub
>
>
>
>
>
>
