procedure TplExcelFormEx1.Button1Click(Sender: TObject);
var
  ATextFrame : Excel2000.TextFrame;
  AChar      : Excel2000.Characters;
begin
  ATextFrame := xlfExcelSheet.Shapes.Item('Text Box 1').TextFrame;

  //配置は上下左右の中央に
  ATextFrame.HorizontalAlignment := xlCenter;
  ATextFrame.VerticalAlignment   := xlCenter;

  //引数を省略すると文字列全体のCharactersオブジェクトとなる
  AChar := ATextFrame.Characters(EmptyParam, EmptyParam);

  //文字列
  AChar.Text := '東京都大阪府';

  //2番目から3文字分の文字の書式を変更
  AChar           := ATextFrame.Characters(2, 3);
  AChar.Font.Name := 'ＭＳ Ｐゴシック';
  AChar.Font.Size := 20;
end;