In diesem Beispiel wird das dritte Zeichen im Textrahmen der ersten Form im aktiven Tabellenblatt fett formatiert.
With ActiveSheet.Shapes(1).TextFrame .Characters.Text = "abcdefg" .Characters(3, 1).Font.Bold = True End With