oshp.TextFrame.TextRange.Font <The specified error is out of range>

PetLahev · #1 10-21-2011, 03:45 AM

Try this one

ONLY SAMPLE

Code:

If shp.HasTextFrame Then
   If shp.TextFrame.HasText Then
       With shp.TextFrame.TextRange.Font
              .Size = 24
              .Name = "Times New Roman"
       End With
   End If
End If

ghumdinger · #2 10-22-2011, 12:46 AM

Hi, thanks.

I got an "object expected", error 424 error for this line:

If shp.HasTextFrame Then

Best wishes,
Jay

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Can't delete range - error 5904	expatriate	Word VBA	1	06-03-2011 12:12 AM
Runtime error 5487 - Word cannot complete the save to to file permission error	franferns	Word	0	11-25-2009 05:35 AM
Receive error cannot open this form because an error occurred in BCM 2007	bornhusker	Outlook	0	06-01-2009 10:28 AM
Subscript out of range error	KHTAY	Excel	6	03-28-2009 11:18 PM
Mysterious "Subscript out of range" error	rnstewart	Excel	4	12-29-2005 01:04 PM