Internetexplorer maximieren

ich habe ein Button auf einem Excelblatt, der beim Klick ein Html öffnen soll. Dies funktioniert auch, aber der Internetexplorer ist nicht maximiert. Deshalb meine Frage wie kann ich im Code den Explorer maximieren.

Private Sub CmdInfo_Click()
Dim AnwPfad As String
Dim objIE As Object

AnwPfad = ActiveWorkbook.Path
If Not Right(AnwPfad, 1) = "\" Then AnwPfad = AnwPfad + "\"

Set objIE = CreateObject("internetexplorer.Application")
objIE.Visible = True
objIE.navigate (AnwPfad + "Eingabebilder\Information\Info.htm")

End Sub