コメントのデフォルト設定

Question

EXCEL2003ですが、コメントの設定について質問です。

コメントは個別に設定できますが、デフォルトですべてのコメントに共通させたい設定をどうすればよいか、教えてください。

例えば、コメントに合わせて自動サイズ調整とか、。それから、名前が自動で先頭に入るのですが、一人で使うのでいらないので表示させないようにしたいのですが。プロパティの作者の名前が表示されると思って、それを消したのですが、直りません。

よろしくお願いします。

Answer 1

>メニューで選択した後、編集モードで開いてほしいのですが。

ちょっと試してみた範囲ではコメントを常時表示するモードにしていないと、VBAから、コメント枠を選択状態にすることはできないみたいです。

コメントの表示モードをVBAで常時表示に変更することは可能ですが、入力終了のタイミングでコメントマークのみに変える良い手段が見当たりません。

Sub xxx()

Application.DisplayCommentIndicator = xlCommentAndIndicator

With ActiveCell

   With .AddComment("")

    .Shape.ScaleWidth 5, msoFalse

    .Shape.Select

  End With

End With

End Sub

コメントの表示モードを戻すには手動でオプションを操作するか、↓のコードを実行してください

Sub yyy()

 Application.DisplayCommentIndicator = xlCommentIndicatorOnly

End Sub

Answer 2

ありがとうございます。

やってみましたが、右クリックでメニューを選ぶと空白のコメントが（出来上がって）セルの右上に小さい三角マークがついた状態になります。

メニューで選択した後、編集モードで開いてほしいのですが。

申し訳ありませんが、お願いできませんでしょうか。

よろしくお願いします。

Answer 3

アドインを作る方法って言っても、名前を付けて保存の際、*.xla　を選択するだけですけど？

コンテキストメニューへの登録は、ThisWorkbookのコードに

Private Sub Workbook_Open()

Dim wBar As CommandBar

With Application

  For Each wBar In .CommandBars

    If wBar.Name = "Cell" Then

      With wBar.Controls.Add(Type:=msoControlButton, temporary:=True)

        .Caption = "表示する文字"

        .OnAction = "xxx"  '＜＝プロシージャ名

      End With

    End If

  Next

End With

End Sub

こんなのを入れればできます。（立ち上げたExcelを終わらせれば、コンテキストメニューから消えるようにしてあります）

実行するコード（ここではxxxとなってます）は標準モジュールに入れてください。

Answer 4

ありがとうございます。

すいません、「アドインを作る」方法自体が分かりません。それと右クリックメニューに登録方法も分かりません。

申し訳ありませんが、教えていただけないでしょうか。

よろしくお願いいたします。

Answer 5

コメントは殆ど使ったことがないで、100%の自信はないですが、初期設定というのは特にないようです。

コメントのユーザー名はツール⇒オプション⇒全般のユーザー名が入りますので、これで変更可能です。

ただし、これをクリアした場合はWindowsのアカウント名が自動的にはいりますので、結局ユーザー名なしの設定にはなりません。

ですから、コメントの初期設定風の操作をするなら、次のようなコードを含むアドインを作り、右クリックメニューに登録するとか言うことになると思います。

Sub xxx()

With ActiveCell

   With .AddComment("")

    .Shape.ScaleWidth 5, msoFalse

  End With

End With

End Sub

このコードは選択されているセル（範囲選択されている場合は左上のセル）にユーザー名なしで細長いコメントを挿入します。