Top > OOobbs2 > 173
** [[OOobbs2/173]] [#oc8458eb]
-''サマリ'': 特定のURLをIEで開き、画面を最前列にする方法
-''環境'': 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

Reload   New Lower page making Edit Freeze Diff Upload Copy Rename   Front page List of pages Search Recent changes Backup   Help   RSS of recent changes