VBAでテキストボックスの塗潰しなし ができなくなった

Question

VBAで以前はテキストボックスの背景が透明(塗潰しなし)で入力できていたのですが

気が付けば、背景色が透明でなく、白塗潰しで入力されるようになりました。

問題が発生しているのは

OS:Windows 10 Pro　64 ビット

Excel　Microsoft 365 MSO (バージョン 2111 ビルド 16.0.14701.20204) 32 ビット

現在でも古いPCのExcel2013では背景が透明(塗潰しなし)で入力できてます。

Excelのバージョンに由来する挙動なのでしょうか?

設定しているVBAを下記に記載しておきます。

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

Answer 1

> VBAで以前はテキストボックスの背景が透明(塗潰しなし)で入力できていたのですが > 気が付けば、背景色が透明でなく、白塗潰しで入力されるようになりました。 > Selection.ShapeRange.Fill.Visible = msoFalse > Selection.ShapeRange.Fill.Transparency = 0#
Visible プロパティを False に設定した後で
Transparency プロパティを設定したことによって、
Visible プロパティが自動的に True に設定された結果でしょう。

実行する順番を逆にしてみて下さい。

Answer 2

そもそも塗りつぶしなし（かつ線もなし）にしたいのであれば、"Selection.ShapeRange...." の部分は

　Selection.ShapeRange.Fill.Visible = msoFalse

　Selection.ShapeRange.Line.Visible = msoFalse

だけで良いですよね。もしこれでダメならバグ決定。

Answer 3

Selection.ShapeRange.Fill.Visible = msoFalse

　Selection.ShapeRange.Line.Visible = msoFalse

≫≫

この2行のみにしてみました。

塗りつぶしなし（かつ線もなし）にできました。

ありがとうございました。

Answer 4

実行する順番を逆にしてみて下さい。

≫≫

逆にしてみました。背景色透明になりました。

ありがとうございました。