Textbox in der Kopfzeile verankern

04/02/2010 - 16:56 von inge olufs | Report spam
hallo,

es gelingt mir einfach nicht, die textbox, die ich einfügen will, in
der kopfzeile zu verankern :-(

eingefügt wird sie in der geöffneten kopfzeile mit
Set oTB oDoc.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
Left:=CentimetersToPoints(2), _
Top:=CentimetersToPoints(4.9), _
Width:=CentimetersToPoints(10), Height:)

und anschließend so der text eingesetzt und die textbox formatiert:
With oTB
.TextFrame.TextRange = strGelesen
.Line.Visible = msoFalse
.LockAspectRatio = msoTrue
.LockAnchor = True
.ZOrder msoSendBackward

With .TextFrame.TextRange.Paragraphs(1).Range.Font
.Name = "Arial"
.Size = 6
.Underline = wdUnderlineSingle
End With
End With

blöderweise ist die textbox danach im dokument statt in der kopfzeile.
was mache ich falsch?

schon mal danke für eure unterstützung!
inge
 

Lesen sie die antworten

#1 Thomas Gahler
04/02/2010 - 19:19 | Warnen spam
Hallo inge


es gelingt mir einfach nicht, die textbox, die ich einfügen will, in
der kopfzeile zu verankern :-(

Set oTB =
oDoc.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _


Du fügst die Tewxtbox im Dokument ein. Du musst sie jedoch im Header
einfügen, dass sie auch dort ist. Zusàtzlich empfehle ich immer das Argument
'Anchor' zu übergeben.

Dann sieht dein Code anschliessend so aus...


Sub Demo()
Dim hdr As Word.HeaderFooter
Dim oTB As Word.Shape

Set hdr = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary)

Set oTB = hdr.Shapes.AddTextbox( _
Orientation:=msoTextOrientationHorizontal, _
Left:=CentimetersToPoints(2), _
Top:=CentimetersToPoints(4.9), _
Width:=CentimetersToPoints(10), _
Height:, _
Anchor:=hdr.Range)

With oTB
.TextFrame.TextRange = "strGelesen"
.Line.Visible = msoFalse
.LockAspectRatio = msoTrue
.LockAnchor = True
.ZOrder msoSendBackward

With .TextFrame.TextRange.Paragraphs(1).Range.Font
.Name = "Arial"
.Size = 6
.Underline = wdUnderlineSingle
End With
End With
End Sub

Thomas Gahler
Co-Autor von »Microsoft Word-Programmierung.
Das Handbuch« (MS Press)


- Windows Vista (SP2), Office 2007 (SP2)

Ähnliche fragen