|
▼チチクイック さん:
>VBAでIEを開くときIEのサイズの変更は変えることはできませんか?
こんな感じで如何でしょうか。
Sub test()
' IEが既に開いていれば、それを 開いていなければYahooを開いて
' そのWindowの大きさを変更する
Dim MyShell As Object
Dim MyWindow As Object
Dim objIE As Object
Set MyShell = CreateObject("Shell.Application")
For Each MyWindow In MyShell.Windows
If TypeName(MyWindow.document) = "HTMLDocument" Then
Set objIE = MyWindow: Exit For
End If
Next
If objIE Is Nothing Then
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate "http://www.yahoo.co.jp"
End If
With objIE
.Visible = True
Application.Visible = True
If MsgBox("IEのウィンドウ サイズを変更しますか?", vbYesNo) = vbYes Then
.Height = 450
.Width = 500
.Top = 150
.Left = 250
End If
.Visible = True
End With
Set objIE = Nothing
Set MyWindow = Nothing
Set MyShell = Nothing
End Sub
|
|