テキストボックス内の書体変更

投稿者 : Micchel     投稿日時 : 2015/12/10(Thu) 13:14:46     OS : Windows XP     EXCEL : Excel 2007

---

Sub TextBox_Test()
   ActiveSheet.Shapes("テキスト ボックス 1").TextFrame.Characters.Font.Name = "HGPｺﾞｼｯｸE"
End Sub

以上のようなスクリプトでテキストボックス内の文字の書体を変更しようとしましたが
変更できません
ActiveSheet.Shapes("テキスト ボックス 1").TextFrame.Characters.Font.Color = RGB(255, 0, 0)
このような、色の変更は可能です

Cells(4, 4).Characters.Font.Name = "HGPｺﾞｼｯｸE"
セル内では、書体の変更が可能です

テキストボックス内の書体変更には
.TextFrame.Characters.Font.Name =
ではなく、別の方法があるのでしょうか

投稿者 : 管理人     投稿日時 : 2015/12/11(Fri) 21:42:44

---

ワークシート上に設置したテキストボックスは、
ShapesではなくOLEObjectsを使うといろいろ操作できるようです。

Sub TextBox_Test2()
    With ActiveSheet.OLEObjects("TextBox1").Object
        .Font.Name = "ＭＳ ゴシック"
        .Font.Size = 12
        .Text = "Excel VBA"
        .ForeColor = vbWhite
        .BackColor = vbBlue
    End With
End Sub