VBAでテキストボックスの塗潰しなし

Question

前提・実現したいこと

マクロで文字入力(テキストボツクス)挿入時　塗潰しなしとしたい。

発生している問題・エラーメッセージ

以前はテキストボツクスの背景が透明(塗潰しなし)で入力できていたのですが
気が付けば、背景色が透明でなく、白塗潰しで入力されるようになりました。

該当のソースコード

Sub 文字挿入単体()

tatehaba1 = ActiveCell.Height
Yokohaba = Selection.Width
Tatehaba = Selection.Height
Yoko = Selection.Left
Takasa = Selection.Top
Migihashi = Yoko + Yokohaba + Futosa \ 2
Hidarihashi = Yoko - Futosa \ 2
Shita = Takasa + Tatehaba
Migi = Yoko + Yokohaba
inptxt = InputBox("文字を入力してください", 文字入力)
If inptxt = "" Then
    Exit Sub
End If

ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, _
                              Yoko + 2, Takasa - 2, 0, 0).Select



Selection.Characters.Text = inptxt
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoFalse
With Selection
    .HorizontalAlignment = xlLeft
    .VerticalAlignment = xlTop
    .Orientation = xlHorizontal
    .AutoSize = True
    .AddIndent = False
End With

End Sub

試したこと

Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Fill.Transparency = 0#

上記部分が　背景色に関連だと思うのですが

補足情報（FW/ツールのバージョンなど）

Comments

[bebebe_]

Selection.ShapeRange.Fill.Visible = msoFalse
で塗りつぶし無しに設定後に
Selection.ShapeRange.Fill.Transparency = 0#
で塗りつぶしの透明度を0に設定しているから起きているように感じます

[kosanlove]

Selection.ShapeRange.Fill.Transparency = 0#
を削除したら解決しました。ありがとうこざいました。

Answer 1

bebebe　様のご指摘の通り
Selection.ShapeRange.Fill.Transparency = 0#
を削除したら解決しました。ありがとうこざいました。