[[20070719130117]]　『オブジェクト』（派遣）　ページの最後に飛ぶ

『オブジェクト』（派遣）

 いつも勉強させて頂いております。
 今日はオブジェクトの件で教えて下さい。
 エクセル編集中に非表示をかけようとすると、【オブジェクトがシートからはみ出します】といったようなエラーで出て非表示にすることが出来なくなります。
 過去ログを拝見して、原因がコメントであることは分かりました。
 このシートにはコメントが無数についており、使用上削除することは出来ません。
 １つ１つ、コメントを【セルに合わせて移動やサイズ変更をする】に変更しなければならないでしょうか？何かいい方法がありましたら教えて下さい。

 １つ１つが面倒ならば、マクロで一気に設定されてはどうでしょうか？
 (ROUGE)
'----
Sub test()
    Dim com As Comment
    For Each com In ActiveSheet.Comments
        com.Shape.Placement = xlMoveAndSize
    Next
End Sub

 ROUGE さま

 ありがとうございます。
 マクロは記録程度しか知識がなくコメントの編集まで出来るなんで驚きです。
 おかげさまで非表示にする事ができ、大幅な入力時間の短縮ができました。
 感謝致します。
 （派遣）

コメント返信：

[ 一覧(最新更新順) ]

[[20070719130117]] 『オブジェクト』（派遣） ページの最後に飛ぶ

[[20070719130117]]　『オブジェクト』（派遣）　ページの最後に飛ぶ