こういうのではダメですか? Dim myDoc As Object Set myDoc = WebBrowser1.Document Debug.Print myDoc.body.scrollHeight Set doc = Nothing見当違いならすいません。