grafik in kopfzeile verschiebt den text im document? hiiiilfe

24/05/2008 - 21:12 von jensspeedy | Report spam
hi sagt der jens aus berlin - ich schon wieder ;-)

der code liegt in einer *.dot und làuft eben beim erstellen eines
neuen docŽs ;-)

wenn ich mit folgendem code grafiken in die kopfzeilen der ersten und
der folgenden seiten reinschiebe ist bei mir daheim und auf anderen
rechnern alles schick ;-)
[code]
Private Sub Document_New()

'grafik in kopfzeile aller seiten eines dokumentes laden und
positionieren

Dim oShape As Shape, oRange As Range
Dim Pfad As String

Pfad = "C:\z_vorlagen_bastel\logo_sw.jpg"

Set oRange ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range
Set oShape = ActiveDocument.Shapes.AddPicture(FileName:=Pfad, _
LinkToFile:=False, SaveWithDocument:=True,
Anchor:=oRange)

'optionale Formatierungen
oShape.Height = 102
oShape.Width = 592.45
oShape.Left = CentimetersToPoints(-2.01)
oShape.Top = CentimetersToPoints(0.1)

Call Sektion2
End Sub


Private Sub Sektion2()

'grafik in Kopfzeile der ersten Seite laden und positionieren

Dim oShape As Shape, oRange As Range
Dim weg As String

weg = "C:\z_vorlagen_bastel\temp_sw_mlogo.jpg"

Set oRange ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage).Range
Set oShape = ActiveDocument.Shapes.AddPicture(FileName:=weg, _
LinkToFile:=False, SaveWithDocument:=True,
Anchor:=oRange)

'optionale Formatierungen
oShape.Height = 838.5
oShape.Width = 592.45
oShape.Left = CentimetersToPoints(-2.01)
oShape.Top = CentimetersToPoints(0.1)
[/code]
nun sitz ich an nem rechner mit sp3 auf office2003 und hier kommt
alles durcheinander - die grafiken schieben mir den text aus der
vorlage nach unten - scheint irgendwie mit dem anker zu tun zu haben?

habt ihr ne idee was ich machen muss damit die grafiken den text NICHT
verschieben?

aber ich brauche doch den anker irgendwie um die grafik in der
kopfzeile zu positionieren?

hiiiilfe - oder liegt das an nem bug im sp3 für office - weil
daheim mit 2007 und auf rechnern mit sp2 für office 2003 ist alles
schön?

wàre mir ne echte hilfe

euch nen tolles we und so

der jens
 

Lesen sie die antworten

#1 Cindy M.
25/05/2008 - 09:29 | Warnen spam
Hi Jensspeedy,

nun sitz ich an nem rechner mit sp3 auf office2003 und hier kommt
alles durcheinander - die grafiken schieben mir den text aus der
vorlage nach unten - scheint irgendwie mit dem anker zu tun zu haben?



Ich schàtze, die Grafik wird mit einem Textfluss versehen, statt
"hinter" den Text gelegt. Kann sein, dass beim Installieren von SP3
die Standardeinstellung (Extras/Optionen/Allgemein) für neu eingefügte
Grafiken geàndert wurde...

Probiere es mit
oShape.WrapFormat.Type = wdWrapBehind

Cindy Meister
Co-Autor von »Microsoft Word-Programmierung Das Handbuch« (MS Press)
http://www.word.mvps.org
http://homepage.swissonline.ch/cindymeister

Rückfragen & Antworten nur in der Newsgroup, bitte!

Ähnliche fragen