1. '図を取得してテキストを設定 
  2. ActiveWorkbook.Sheets(1).Shapes("タイトル1").TextFrame.Characters.Text = "図のテキスト"