EXCEL VBA テキストボックス内を透明にしたい

Question

調べて
.BackStyle =fmBackStyleTransparent
を使ってみましたが
コンパイルエラー；変数が定義されていません
と出ます
どうすればいいでしょうか

sub txtbox()
Set txtbox = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 120, 120, width, height)
With txtbox
      .TextFrame.Characters.Text = value1
      .TextFrame.VerticalAlignment = -4130
      .TextFrame.Characters.Font.Color = RGB(0, 0, 0)
        'ここでエラーが出ます
End With
End Sub

Comments

[meg_]

> 調べて
> .BackStyle =fmBackStyleTransparent
> を使ってみましたが
その情報はどこで知りましたか？

Answer 1

With txtbox
    .Fill.Visible = msoFalse
End With

こちらで透明化できます。

Comments

[dedede914]

ありがとうございました

Answer 2

この一行を追加すれば背景色を無しにできます。
.Fill.Visible = msoFalse

sub txtbox()
Set txtbox = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 120, 120, width, height)
With txtbox
      .TextFrame.Characters.Text = value1
      .TextFrame.VerticalAlignment = -4130
      .TextFrame.Characters.Font.Color = RGB(0, 0, 0)
      .Fill.Visible = msoFalse
End With
End Sub