|
bykinさん こんばんは
さすが、comアドインのbykinさん! 有難うございます。
じつはWEB検索で以下をみつけ、試していたところでした。
http://www.excel-center.com/mailing/067299h.htm
同じコードなんですが、for excel2000
'標準モジュール
Sub test1()
UserForm1.Show
End Sub
'フォームモジュール
Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetParent Lib "user32" _
(ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Sub UserForm_Initialize()
Call SetParent(FindWindowA("ThunderDFrame", Me.Caption), _
Application.VBE.MainWindow.hWnd)
End Sub
そこで、たぶん隠しプロパティ発見?。hWndプロパティ?
Application.VBE.MainWindow.hWnd
SetParent関数で目的は達したかに思えたのですが、
なんと、VBEのウインドウから外に動かせない。
Excel上と同じように自由に動かせたらベストなんですが?
>VBかOfficeDeveloperでCOMアドイン(DLL)作るのが本筋とも思うけど・・・
おっしゃる通りです。
COMアドインならこんな余計な処理は無用ですね。
アドイン(xla)でも動かして見たかった、ということで。
|
|