エクセルVBA：テキストボックスサイズの基準値に戻す方法

質問

• エクセルVBAを使用して、図形のテキストボックスのサイズを取得し、基準値として記録する方法について教えてください。
• また、テキストボックスのサイズを変更した後、ボタンをクリックするとサイズが基準値に戻るような仕組みを作りたいのですが、具体的な方法を教えてください。
• なお、エクセルのバージョンは97と2000を対象としています。

回答No.1

nishi6

「テキストボックスの大きさを、基準の大きさの戻す（エクセルＶＢＡ）」と
「テキストボックスのフォントサイズの復元」の共通の前提です。

図形のテキストボックスを選択してコマンドボタンを押すと、ボタンを押したことで、どのテキストボックスを選択していたか分からなくなるようです。（手段を尽くせば分かるかもしれないが技術不足で・・・）
どのテキストボックスを選択したか分かるように、テキストボックスをクリックしたら、その名前を覚えるようにしました。
各テキストボックスには「myText1_2」のように名前を付けます。（もう付けている？）「1」はシート番号で、「2」はそのシートでのテキストボックスの番号です。
各シートのコードウインドウにテキストボックスの個数分マクロを作ります(次はシート1に3個の場合)

=== シート1に貼り付け(例) ===
Sub myText1_1_Click() 'Sheet1のテキストボックス1を選択
tbxClickName = "myText1_1": txtSentaku tbxClickName
End Sub
Sub myText1_2_Click() 'Sheet1のテキストボックス2を選択
tbxClickName = "myText1_2": txtSentaku tbxClickName
End Sub
Sub myText1_3_Click() 'Sheet1のテキストボックス3を選択
tbxClickName = "myText1_3": txtSentaku tbxClickName
End Sub

次に各テキストボックスにマクロの登録をします。（選択して右クリック）テキストボックスと対応するものを選びます。

標準モジュールに貼り付け（上の方に）
Public tbxClickName As String '選択したテキストボックス名

標準モジュールに貼り付け
'*** テキストボックスを選択したら色を変える ***
Public Sub txtSentaku(txtName As String)
With ActiveSheet.Shapes(txtName)
.Select
With Selection.ShapeRange.Fill.ForeColor
If .SchemeColor = 65 Then
.SchemeColor = 41
Else
.SchemeColor = 65
End If
End With
.TopLeftCell.Select
End With
End Sub

これで、テキストボックスを選択すると背景色が変わります。再度選択すると戻ります。
このアクションで内部でテキストボックス名を記憶します。

以下次へ・・・・・・

補足

うーーーん！ うまくいきません！なぜでしょう？？？？？
すみません！またお世話になります！

Set rg_iniSet = Range("SyokiIchi_" & ShtNo)
で、エラーです。

シートにサイズを書く位置はどこでもいいんですよねー？？？？？
とりあえず、テストファイルで、Ａ１から書いてますけど・・・・・
範囲名とは、SyokiIchi_1のことですよねー
Ｎｏ１｜ Ｎｏ２ ｜Ｎｏ３｜は大文字？小文字？

宜しくお願いします。