エクセルのコメントの書式

質問

エクセルでコメントの挿入を行うとユーザー名がデフォルト値として表示されてしまい、フォントを変更する手間を省きたいため、当サイトで類似質問を検索したところ、yukapapaさんの作成した以下マクロが紹介されておりました。　早速コピペして使用していますが、表示画面では文字が化けてしまい、「□□□・・・」となってしまいます。　編集画面にすると正常に表示されますが、原因と対策が解る方みえましたら、教えてください。　使用ＯＳは９８（エクセルのバージョンは２０００）です。　ちなみにＭｅのマシンでは異常ありません。

Sub myComment()
Dim myCom As String

　myCom = Application.InputBox("コメントを入力してね。", "コメント挿入", Type:=2)
　On Error Resume Next
　ActiveCell.Comment.Delete
　If myCom <> False Then ActiveCell.AddComment (myCom)
End Sub

回答No.2

papayuka · ベストアンサー

こんにちは。

適当な関数を知らないので長いコメントは強引に合せてます。あまり長くなると高さが上手くそろいませんが。。
あと、画面の解像度などで調整が必要かも。

Sub myComment1()
Dim myCom, myRow
myCom = Application.InputBox("コメントを入力してね。", "コメント挿入", Type:=2)
If myCom = False Then Exit Sub
ActiveCell.NoteText myCom
If ActiveCell.Comment Is Nothing Then Exit Sub
　With ActiveCell.Comment.Shape
　　.TextFrame.Characters.Font.Size = 9
　　.TextFrame.Characters.Font.Name = "ＭＳ 明朝"
　　.TextFrame.AutoSize = True
　　If Len(myCom) <= 10 Then Exit Sub
　　myRow = Application.WorksheetFunction.RoundUp(Len(myCom) / 10, 0)
　　.Width = 96
　　.Height = .Height * myRow
　End With
End Sub

お礼

ありがとうございました。　バッチリです。
大変助かりました。

回答No.1

papayuka

私の名前が出てきたので、、

Excel2000は持ってないので現象は確認出来ません。

Sub myComment1()
Dim myCom
　myCom = Application.InputBox("コメントを入力してね。", "コメント挿入", Type:=2)
　If myCom = False Then Exit Sub
　ActiveCell.NoteText myCom
End Sub

ではどうでしょう。
同じかな？

お礼

papayukaさん、補足を送信した後に「画面のプロパティ」を調べましたら「ヒント」の書式設定が変なフォントとなっており、そこを訂正したら文字化けのトラブルは解消されました。　お騒がせしました。　後は窓の大きさをコメントの文字数に連動して動くようになれば完璧です。よろしくお願いします。

補足

yukapapaさんではなく、papayukaさん、早速の回答ありがとうございました。　名前を間違えてごめんなさい。
ところで新しいマクロを試してみましたがやはりダメでした。大変使いやすい方法なので是非完成させたいのですが他に対策はないでしょうか？　またできればコメントの大きさが文字数によって変化するようにできればもっと便利になると思うのですがそれは無理ですか？　現在は数文字のコメントであっても５行分くらいの大きな窓となってしまいます。よろしくお願いします。