[[20100914134336]]　『コメントの自動サイズに調整』（ﾊﾟｰｼﾓﾝ）　ページの最後に飛ぶ

『コメントの自動サイズに調整』（ﾊﾟｰｼﾓﾝ）Excel2000

 こんにちは

 コメントは自動サイズに調整が出来ますが、毎回セルのコメントを自動サイズに
調整しなくてもいいようにコメントを挿入したら最初から自動サイズになるように
設定することは可能でしょうか？

 たぶん初期設定でそこを変更できる機能はないんじゃないかなと思います。
 マクロを組めばできるかもしれませんが・・・

 とりあえず以下のページの「自作ソフト一覧」に「コメントくん」というアドインがあります。
 こちらをご利用になれば、ご希望のことができるかと思います。

http://www.mhl.janis.or.jp/~winarrow/

 （すずめ）

 >コメントを挿入したら最初から自動サイズになるように
 >設定することは可能でしょうか？

 そのような設定は無いと思います。
 マクロを使えば出来ます。

 E03M135  コマンドバー操作メモ(応用 クラス)  
http://www2.aqua-r.tepm.jp/~kmado/kvba.htm
 ■コメントの挿入(&M)コマンドをカスタマイズ
 ↑
 ここのコードを自ファイル等にコピーし、
 Sub kWrapCommentSet() を実行すれば
 以後、セルの右クリックショートカットメニューの[コメントの挿入]コマンドで
 はじめから自動サイズに調整の状態で使用できます。
 詳細は紹介サイトをよくお読み下さい。
 (sasa)

 ＶＢＡを知っているならば、標準モジュールに

 '===============================================================
 Sub mk_comment()
    Dim txt As Variant
    txt = Application.InputBox("アクティブセルに作成するコメントを入力してください", , , , , , , 2)
    If TypeName(txt) <> "Boolean" Then
       With ActiveCell
          On Error Resume Next
          .Comment.Delete
          On Error GoTo 0
          With .AddComment
             .Visible = False
             .Text Text:=Application.UserName & ":" & Chr(10) & txt
             With .Shape.TextFrame
                .Characters(1, Len(Application.UserName) + 1).Font.Bold = True
                .HorizontalAlignment = xlLeft
                .VerticalAlignment = xlTop
                .AutoSize = True
             End With
          End With
       End With
    End If
 End Sub

 mk_commentを実行してみてください。アクティブセルに対して、コメントを作成します。
 文字列の入力要求がありますから、指定してください。
 ＯＫボタンクリック後、コメントが自動サイズに調整されて作成されます。

 ichinose

コメント返信：

[ 一覧(最新更新順) ]

[[20100914134336]] 『コメントの自動サイズに調整』（ﾊﾟｰｼﾓﾝ） ページの最後に飛ぶ

[[20100914134336]]　『コメントの自動サイズに調整』（ﾊﾟｰｼﾓﾝ）　ページの最後に飛ぶ