シート上に指定した列を表示するエリアを作りたいII

質問

シート上に指定した列を表示するエリアを作りたいII。宜しくお願いします。

［環境］MS Office2007（Windows10）
［ＥＸＣＥＬ情報］
ファイル名：ムービーリスト
フィールド名：Ａ～Ｈ
Ａ列：ＮＯ「１からの連番で特に意味はない」
Ｂ列：タイトル名「約１３００ほど」
Ｃ列：製作国
Ｄ列：ジャンル「アクション・・・他」
Ｅ列：主演
Ｆ列：実話可否「対象を（実話）と記載」
Ｇ列：アカデミー可否「対象を（アカデミー賞）と記載」
Ｈ列：内容「映画の解説」

「xlsx」ファイルから「xlsm」ファイルへ保存すると「VBA」の設定が動作しません。プロセスが悪いと思いますが、結局のところ「ＥＸＣＥＬ ＶＢＡ未経験」分かっていないので解決できないでいます。以下に［解決したい内容（自身の勝手ですいません）］を２点あげております。アドバイスをお願い致します。

［解決したい内容（自身の勝手ですいません）］
１，保存後に起動するとテキストボックスは表示されるが、行を選択移動してもテキストボックスの内容が終了時のままです。
※ＶＢＡ保存時の手順「上書き保存」→「いいえ」→「ＥＸＣＥＬマクロ有効ブック（＊,xlsm）」→「保存」
２，１～５行目に作成されるテキストボックスのサイズ変更しても元に戻ってしまいます。サイズを変更する方法「固定化」を教えて下さい。

［やったこと］
１，ＥＸＣＥＬファイルの１～５行目を空白としました。
２，操作手順：「開発」→「コードの表示」→「Sheet1（ムービー）」→「アドバイス構文」

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　For Each sha In ActiveSheet.Shapes
　　　　If sha.Name = "MTxt" Then sha.Delete
　　Next

　　ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 0, 270, 67.5).Select
　　Selection.Name = "MTxt"
　　Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = _
　　　　　　"タイトル名：" & Cells(Target.Row, 2).Value & Chr(13) & _
　　　　　　"内容：" & Chr(13) & Cells(Target.Row, 8).Value
　　Target.Select
End Sub

以上ですが、宜しくお願いします。

回答No.1

imogasi · ベストアンサー

質問のズバリ原因は判りません。
納得する回答が出ればよいが、あまり深追いすることを避けてはどうか。
多分質問者がしたいことを推定して、掲示のコードも使いながら、やってみましたので参考に。
（１）エクセル２０１０で新規ブックを開く
（２）下記の小生のサンプル例のデータをコピーして、シートのＡ１：Ｄ４に貼り付りつけ
No タイトル 内容 時間
1 雨 男女の別れ 30分
2 日本の問題 日本の人口問題 ４５分
3 映画の歴史 娯楽編 ２０分
（３）開発ーＶｉｓｕａｌＢａｓｉｃ
（４）ＶＢＥ画面で
General部のWorksheetを選ぶ
Declaration部でSelection＿Changeを選ぶ
（５）Private Sub Worksheet_SelectionChangeと
End Sub
との、その間の空白行に、下記の中身をコピペ
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1").CurrentRegion) Is Nothing Then
Exit Sub
Else
For Each sha In ActiveSheet.Shapes
If sha.Name = "MTxt" Then sha.Delete
Next
'--
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, Target.Left + 30, Target.Top + 30, 270, Target.Height * 4).Select
Selection.Name = "MTxt"
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = _
"タイトル名：" & Cells(Target.Row, "B").Value & Chr(13) & _
"内容 ：" & Cells(Target.Row, "C").Value & Chr(13) & _
"時間 ：" & Cells(Target.Row, "D").Value
Target.Select
End If
End Sub
（６）シートの画面に戻って
第２－４行のどれかをクリック（選択）
クリックしたセルの近くにタイトルー内容ー時間がテキストボックスに表示される。
それ以外のセルを選択すると画面上は何も変わらない。
（７）保存はマクロ付きのブックとして保存のこと。

補足

質問の「xlsx」ファイルから「xlsm」ファイルへ保存すると「VBA」の設定が動作しません。ですが、マクロのセキュリティー設定を調べましたら「警告を表示して・・・マクロを無効」にチェックが入っていました（デフォルト値でしょうか？）。全てのマクロを有効にするにチェックしましたところ、保存後に開いても問題なく動いています。「ひとつ解決しました」

［もうひとつ解決したいこと］
質問させて頂きました「１～５行目に作成されるテキストボックスのサイズ変更しても元に戻ってしまいます。サイズを変更する方法「固定化」を教えて下さい。」ですが、文字量が多いので横に広げて表示させたいと思います。理由ですが、テキストボックスですのでスクロールしての表示ができませんので、内容の殆どが表示できない為です。以上ですが、宜しくお願いします。