Amend text shape in header with VBA

Welshgasman · #5 09-21-2016, 01:28 AM

Paul,

The following code works great

Code:

For Each sh In ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes
            If sh.Type = msoTextBox And sh.Name = "Text Box 1" Then
                'sh.TextFrame.TextRange.Text = Replace(sh.TextFrame.TextRange.Text, "The Business Centre", "JAG Business Centre")
                'sh.TextFrame.TextRange.Paragraphs.Alignment = wdAlignParagraphRight
                sh.TextFrame.MarginLeft = 0 'This puts the text right on the margin
                sh.TextFrame.TextRange.Font.Name = "Arial"
                sh.TextFrame.TextRange.Font.Size = 10
                sh.TextFrame.AutoSize = True
                sh.TextFrame.TextRange.Text = strText
            End If
            
        Next sh

but as I suspected I need to autosize the header height for the new font size

How would I do that please. I've tried looking in the properties, but have yet to find the correct value.

TIA

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
selecting shape in header only	mhagi	Word VBA	5	10-09-2015 01:10 AM
Get the TEXT of Clicked Shape	exceere	Excel Programming	9	07-09-2014 06:51 AM
how to paste text as shape	bsapaka	Excel	1	05-01-2014 06:53 AM
Excel vba adding field in word table/shape in a header	Hdr	Excel	1	02-04-2013 04:40 PM
Amend footer in multiple word docs?	compact	Word	2	02-24-2009 09:40 AM