Microsoft Office Forums - View Single Post - [Solved] oshp.TextFrame.TextRange.Font <The specified error is out of range>

PetLahev · 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