Macro to Insert Logo in header on 1st page only and bookmark it.

youseeme · #8 09-15-2016, 05:36 AM

Thanks again, I think as its just text it might be better to use textboxes.

I have managed to get a textbox added into the header and put in some 'test' text, how do I set the textbox to have no outline and set the font etc for the text?

Code:

    With Selection.Sections(1)
        Set Shp = .Headers(wdHeaderFooterFirstPage).Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
        Left:=50, Top:=50, Width:=100, Height:=100)
        With Shp
            .LockAspectRatio = True
            .Height = CentimetersToPoints(3.53)
            .Width = CentimetersToPoints(4.68)
            .Left = CentimetersToPoints(8.74)
            .Top = CentimetersToPoints(-0.96)
            .WrapFormat.Side = wdWrapNone
            .WrapFormat.Type = wdWrapBehind
            .Name = "CCTextBox"
            .TextFrame.TextRange.Text = "Test"
        End With
    End With

and last thing, how would I go about hiding it for printing, I was using this to hide the logo..

Code:

           ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage).Shapes("CCLogo").Visible = msoTrue

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to insert Landscape page	Catty	Word VBA	1	05-05-2014 03:42 AM
Open header to insert text into bookmark	Amapola188	Word VBA	3	07-12-2012 05:16 PM
Macro to insert new page...	samanthaj	Word	17	01-31-2012 01:53 PM
Macro to get first letter of a page in the header	faramir	Word VBA	4	11-16-2011 05:43 AM
How to print header logo only in 1st page	Shafraz Khahir	Word	1	11-29-2010 11:52 AM