Diff of OOobbs2/173

The added line is THIS COLOR.
The deleted line is THIS COLOR.
Go to OOobbs2/173.
Deleting diff of OOobbs2/173
** [[OOobbs2/173]] [#oc8458eb]
-''サマリ'': 特定のＵＲＬをＩＥで開き、画面を最前列にする方法
-''環境'': Calc
-''状態'': 未解決
-''投稿者'': [[ロバート・ジョン]]
-''投稿日'': 2009-04-21 (火) 23:14:12

*** 質問 [#z1cbc001]
ExcelのVBAにて「Google(http://www.google.co.jp/)をIEで開く」というマクロを設定していました。

そのマクロをVBASupportでCalcに移行して実行したところ、IEでGoogleを開くことができるのですが、
Excelと違うのは、IEがウィンドウの最前面に表示されません。

以下のコードに、OOOBASICで追記してウィンドウを最前面に設定することができますでしょうか？
よろしくおねがいします。


 Rem Attribute VBA_ModuleType=VBADocumentModule
 Option VBASupport 1
 Sub Sample6()
 Dim URL As String, IE As Object
 Set IE = CreateObject("InternetExplorer.Application")
 URL = "http://www.google.co.jp/"
 With IE
 .Navigate (URL)
 .Visible = True
 End With
 End Sub
*** 回答 [#o398331d]
- Sub　IE1　Shell("C:\Program Files\Internet Explorer\iexplore.exe",1,"http://www.google.com" 　End Sub -- new_OOo3 &new{2009-04-24 (金) 00:11:33};
- Sub IE1 -- new_OOo3 &new{2009-04-24 (金) 00:12:31};
- 読みにくいですが、shell文1行でご希望の事は出来ると思います。 -- new_OOo3 &new{2009-04-24 (金) 00:13:44};

#comment


*** 感想，コメント，メモ [#t1d877a4]

#comment