InstantForum.NET v4.1.4Релибhttp://relib.com/forums/robot@relib.comThu, 08 Jan 2009 16:31:35 GMT20http://relib.com/forums/Topic914544-20-1.aspxИмелось в виду это? См. прикрепленный файл.Fri, 06 Jul 2007 17:24:44 GMTBoNiMhttp://relib.com/forums/Topic914544-20-1.aspx<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman" color=#000000 size=3>Добрый день!</FONT></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:office:office" /><o:p></o:p></FONT></FONT></FONT></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman" color=#000000 size=3>Если кто-нибудь может помочь или подсказать ссылку по интересующему меня вопросу - помогите!</FONT></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT size=3><FONT color=#000000><FONT face="Times New Roman"> <o:p></o:p></FONT></FONT></FONT></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> это будет выглядеть так:</FONT></P><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT size=3><FONT color=#000000><FONT face="Times New Roman"> <o:p></o:p></FONT></FONT></FONT></P><PRE><B><SPAN lang=EN-US style="COLOR: black; mso-ansi-language: EN-US"><FONT face=Verdana>Private Sub Workbook_Open()<o:p></o:p></FONT></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:p></o:p></FONT></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:p></o:p></FONT></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:p></o:p></FONT></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:p></o:p></FONT></SPAN></B></PRE><PRE><B><SPAN lang=EN-US style="COLOR: black; mso-ansi-language: EN-US"><FONT face=Verdana> <o:p></o:p></FONT></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:p></o:p></SPAN></FONT></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:p></o:p></SPAN></B></FONT></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 &lt;&gt; .UsableHeight Then<o:p></o:p></FONT></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:p></o:p></FONT></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:p></o:p></FONT></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>End If<o:p></o:p></FONT></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>If ThisWorkbook.Worksheets("Browser") _<o:p></o:p></FONT></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).Width &lt;&gt; .UsableWidth Then<o:p></o:p></FONT></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:p></o:p></FONT></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).Width = .UsableWidth<o:p></o:p></FONT></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>End If<o:p></o:p></FONT></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">End With<o:p></o:p></SPAN></FONT></B></PRE><PRE><B><SPAN lang=EN-US style="COLOR: black; mso-ansi-language: EN-US"><FONT face=Verdana>End Sub<o:p></o:p></FONT></SPAN></B></PRE><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN lang=EN-US style="mso-ansi-language: EN-US"><FONT size=3><FONT face="Times New Roman"><FONT color=#000000> <o:p></o:p></FONT></FONT></FONT></SPAN></P><FONT color=#000000><SPAN lang=EN-US style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'; mso-ansi-language: EN-US; mso-fareast-font-family: 'Times New Roman'; mso-fareast-language: RU; mso-bidi-language: AR-SA">P</SPAN><SPAN style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'; mso-ansi-language: RU; mso-fareast-font-family: 'Times New Roman'; mso-fareast-language: RU; mso-bidi-language: AR-SA">.</SPAN><SPAN lang=EN-US style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'; mso-ansi-language: EN-US; mso-fareast-font-family: 'Times New Roman'; mso-fareast-language: RU; mso-bidi-language: AR-SA">S</SPAN><SPAN style="FONT-SIZE: 12pt; FONT-FAMILY: 'Times New Roman'; mso-ansi-language: RU; mso-fareast-font-family: 'Times New Roman'; mso-fareast-language: RU; mso-bidi-language: AR-SA">.: Простите, если вопрос составлен некорректно. Очень нужна помощь. Заранее благодарю всех, кто уделит мне немного своего времени. </SPAN></FONT>Fri, 06 Jul 2007 14:27:46 GMTProgredi