スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

VBA:ウィンドウの切り替え(ウィンドウをアクティブにする)

【VBA】
ウィンドウタイトルからそのウィンドウをアクティブにする(ウィンドウを切り替える)サンプルプログラムです。

Option Explicit

'強制的に最前面にさせる
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long
'キャプション取得
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Public Sub test()
Dim objWindow, objShell
Dim MyName As String * 128, ret As Long

Set objShell = CreateObject("Shell.Application")
For Each objWindow In objShell.Windows()
MyName = ""
ret = GetWindowText(objWindow.hWnd, MyName, Len(MyName))
If MyName Like "アクティブにしたいウィンドウのタイトルを入れる(中途半端OK)*" Then
SetForegroundWindow objWindow.hWnd
Exit For
End If
Next
End Sub
スポンサーサイト

トラックバック

コメント

コメントを残す

Secret



上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。