各種ウィンドウハンドルの取得 : Excel(エクセル)

Excel VBAでAPIを使用する場合、ハンドル値が必要な場合がよくあります。
ここでは、ユーザーフォーム、Excel、デスクトップのハンドルを取得する方法を掲載します。

Excel Tipsメニューに戻る

スポンサーリンク



Excel VBA シートコード

'ウィンドウハンドルを取得する
Private Declare Function FindWindow Lib "user32" _
       Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

'デスクトップのハンドルを取得する
Private Declare Function GetDesktopWindow Lib "user32" () As Long

'コマンドボタンのクリックイベント
Private Sub CommandButton1_Click()
    Dim hwnd As Long
    
    'ユーザーフォームのハンドルを取得
    hwnd = FindWindow(vbNullString, Me.Caption)
End Sub

'コマンドボタンのクリックイベント
Private Sub aaCommandButton2_Click()
    Dim hwnd As Long
    
    'Excelのハンドルを取得
    hwnd = FindWindow("XLMAIN", Application.Caption)
End Sub

'コマンドボタンのクリックイベント
Private Sub aaCommandButton3_Click()
    Dim hwnd As Long
    
    'デスクトップのハンドルを取得する
    hwnd = GetDesktopWindow
End Sub

スポンサーリンク






Excel Tipsメニューに戻る

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved