View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
Herbert Seidenberg Herbert Seidenberg is offline
external usenet poster
 
Posts: 1,180
Default Change Shape text / Color

Excel 2007
Sub NoSelect()
With ActiveSheet.Shapes(1).TextEffect
..Text = "Hello World"
..FontBold = True
..FontName = "Ariel"
End With
End Sub