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

質問

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

回答No.2

nishi6 · ベストアンサー

前提がクリアされたとして・・・
質問の意味を充分理解したかどうかは疑問ですが・・・・

元のサイズを各シートに入力しておきます。(cm単位)
　　｜□□□□｜　　　Ｎｏ１　　｜　　　Ｎｏ２　　｜　　　Ｎｏ３　　｜
　　｜　高さ　｜　　１．０１　　｜　　１．００　　｜　　１．２０　　｜
　　｜　幅　　｜　　４．００　　｜　　２．５０　　｜　　３．００　　｜
各テキストボックスを右クリックし、オートシェイブの書式設定から基本のサイズを調べます。ダイアログはcm単位ですがＶＢＡでポイントに直します。
上のようにセルに入力して下さい。縦横の表題の交点のセル（□□□□の箇所）に範囲名「SyokiIchi_1」を付けます。「1」はシート番号の意味です。ボタンを押すことでこの値に戻します。シート2なら「SyokiIchi_2」にします。

シート1のコードウインドウに貼り付け(例)
Private Sub CommandButton11_Click() 'サイズを元に戻すボタン
SizeInitialize Val(Right(Me.Name, 1)), tbxClickName
End Sub

標準モジュールに貼り付け
Public Sub SizeInitialize(ShtNo As Integer, txtName As String)
Dim txtHeight As Double '元の高さ
Dim txtWidth As Double '元の幅
Dim TxtNo As Integer 'テキストボックス番号
Dim rg_iniSet As Range '初期位置を書き込んだセル範囲
If Len(txtName) <> 0 Then '選択したテキストボックス名
Set rg_iniSet = Range("SyokiIchi_" & ShtNo)
TxtNo = Val(Right(txtName, 1))
With ActiveSheet.Shapes(txtName)
txtHeight = rg_iniSet.Offset(1, TxtNo) 'cm単位の高さ
txtWidth = rg_iniSet.Offset(2, TxtNo) 'cm単位の幅
.Height = Application.CentimetersToPoints(txtHeight)
.Width = Application.CentimetersToPoints(txtWidth)
.Fill.ForeColor.SchemeColor = 65
End With
End If
End Sub