[[20150129142522]]　『ユーザーフォームの最小化』（ナック２８）　ページの最後に飛ぶ

『ユーザーフォームの最小化』（ナック２８）

ＡＰＩを使用してユーザーフォームに最小化ボタンを表示することはできるのですが、最小化ボタンをクリックしないでユーザーフォーム内のコマンドボタンをクリックしたタイミングで、ユーザーフォームを最小化する方法はありますでしょうか。
宜しくお願いします。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long
 Private Declare Function ShowWindowAsync Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
 Const SW_SHOWMINIMIZED As Long = 2

 Private Sub CommandButton1_Click()
    ShowWindowAsync GetForegroundWindow, SW_SHOWMINIMIZED
 End Sub
（???） 2015/01/29(木) 14:58

 Const SW_MINIMIZE As Long = 6 のほうがいいかも？
（???） 2015/01/29(木) 15:11

Const SW_MINIMIZE As Long = 6 で無事に最小化することができました。
ありがとうございました。
（ナック２８） 2015/01/29(木) 15:30

コメント返信：

[ 一覧(最新更新順) ]

[[20150129142522]] 『ユーザーフォームの最小化』（ナック２８） ページの最後に飛ぶ

[[20150129142522]]　『ユーザーフォームの最小化』（ナック２８）　ページの最後に飛ぶ