<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT face="Times New Roman" color=#000000 size=3>Добрый день!</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT size=3><FONT color=#000000><FONT face="Times New Roman <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com
ffice
ffice" /><o
></o
></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT face="Times New Roman" color=#000000 size=3>Если кто-нибудь может помочь или подсказать ссылку по интересующему меня вопросу - помогите!</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT size=3><FONT color=#000000><FONT face="Times New Roman <o
></o
></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT face="Times New Roman" color=#000000 size=3>Как можно увеличить размер объекта <SPAN lang=EN-US style="mso-ansi-language: EN-US WebBrowser</SPAN>, встроенного в форму в <SPAN lang=EN-US style="mso-ansi-language: EN-US MS</SPAN><SPAN lang=EN-US> </SPAN><SPAN lang=EN-US style="mso-ansi-language: EN-US Access</SPAN> (не растягивая его вручную в конструкторе). В <SPAN lang=EN-US style="mso-ansi-language: EN-US Excel</SPAN> это будет выглядеть так:</P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt <FONT size=3><FONT color=#000000><FONT face="Times New Roman <o
></o
></P><PRE><B><SPAN lang=EN-US style="COLOR: black; mso-ansi-language: EN-US <FONT face=Verdana>Private Sub Workbook_Open()<o
></o
></SPAN></B></PRE><PRE><B><SPAN lang=EN-US style="COLOR: black; mso-ansi-language: EN-US <FONT face=Verdana><SPAN style="mso-spacerun: yes </SPAN>ThisWorkbook.Worksheets("Browser").Activate<o
></o
></SPAN></B></PRE><PRE><B><SPAN lang=EN-US style="COLOR: black; mso-ansi-language: EN-US <FONT face=Verdana><SPAN style="mso-spacerun: yes </SPAN>SetSettings<o
></o
></SPAN></B></PRE><PRE><B><SPAN lang=EN-US style="COLOR: black; mso-ansi-language: EN-US <FONT face=Verdana><SPAN style="mso-spacerun: yes </SPAN>With Application<o
></o
></SPAN></B></PRE><PRE><B><SPAN lang=EN-US style="COLOR: black; mso-ansi-language: EN-US <FONT face=Verdana><SPAN style="mso-spacerun: yes </SPAN>.WindowState = xlMaximized<o
></o
></SPAN></B></PRE><PRE><B><SPAN lang=EN-US style="COLOR: black; mso-ansi-language: EN-US <FONT face=Verdana> <o
></o
></SPAN></B></PRE><PRE><B><FONT face=Verdana><SPAN lang=EN-US style="COLOR: black; mso-ansi-language: EN-US <SPAN style="mso-spacerun: yes </SPAN></SPAN><SPAN style="COLOR: black '-- максимальный размер для WebBrowser<o
></o
></SPAN></B></PRE><PRE><FONT face=Verdana><B><SPAN style="COLOR: black <SPAN style="mso-spacerun: yes </SPAN></SPAN></B><B><SPAN lang=EN-US style="COLOR: black; mso-ansi-language: EN-US If ThisWorkbook.Worksheets("Browser") _<o
></o
></SPAN></B></PRE><PRE><B><SPAN lang=EN-US style="COLOR: black; mso-ansi-language: EN-US <FONT face=Verdana><SPAN style="mso-spacerun: yes </SPAN>.OLEObjects(1).Height <> .UsableHeight Then<o
></o
></SPAN></B></PRE><PRE><B><SPAN lang=EN-US style="COLOR: black; mso-ansi-language: EN-US <FONT face=Verdana><SPAN style="mso-spacerun: yes </SPAN>ThisWorkbook.Worksheets("Browser") _<o
></o
></SPAN></B></PRE><PRE><B><SPAN lang=EN-US style="COLOR: black; mso-ansi-language: EN-US <FONT face=Verdana><SPAN style="mso-spacerun: yes </SPAN>.OLEObjects(1).Height = .UsableHeight<o
></o
></SPAN></B></PRE><PRE><B><SPAN lang=EN-US style="COLOR: black; mso-ansi-language: EN-US <FONT face=Verdana><SPAN style="mso-spacerun: yes