私個人的にも鈴木さんのおっしゃる通りだと思います。 一応以下で実現はできると思いますが。 Sub Postopen(Source As Notesuidocument) Source.HorzScrollBar = True End Sub