Excel VBA 質問スレッド No.9 (未解決)

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

投稿者 : 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 =
ではなく、別の方法があるのでしょうか

[返信 1] Re : テキストボックス内の書体変更
投稿者 : 管理人     投稿日時 : 2015/12/11(Fri) 21:42:44
ワークシート上に設置したテキストボックスは、
ShapesではなくOLEObjectsを使うといろいろ操作できるようです。

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

スポンサード リンク
 
 
当掲示板について
返信入力フォーム
お 名 前  :
内  容   :
ステータス  : この質問を解決済みにする

認証コード  :
        キャプチャ画像


( 処理日時 : 2019-08-26 09:44:41 )

Page
Top