セルに貼り付けたコマンドボタンにマウスカーソルを合わせると、

セルに貼り付けたコマンドボタンにマウスカーソルを合わせると、

コマンドボタンの隣に、ユーザーフォームが表示されるマクロを組んでおります。

しかし、エクセルが最大表示のときは、コマンドボタンの隣にユーザーフォームが表示されるのですが、

エクセルの表示を小さくしたり、画面を下方にスクロールしたりすると、

コマンドボタンに追従せずに、変な場所にユーザーフォームが表示されてしまいます。

できれば、ユーザーフォームの表示位置を、コマンドボタンを基点としたいのですが、

何か良い方法はありますでしょうか。

現在は、アプリケーションの位置を基点にしております。

よろしくお願いします。

Private Sub UserForm_Initialize()
Me.StartUpPosition = 0
Me.Top = Application.Top + 180
Me.Left = Application.Left + 100

Me.Height = 80
Me.Width = 100
End Sub

No.2 ベストアンサー 回答者： xls88 回答日時： 2010/03/14 23:32

≪参考≫

ユーザーフォーム表示位置について
http://hpcgi1.nifty.com/kenzo30/b_cbbs/cbbs.cgi? …

No.1 回答者： xls88 回答日時： 2010/03/11 10:37

コマンドボタンのTopLeftCellプロパティとかBottomRightCellプロパティを使えばどうでしょうか。

Msgbox ActiveSheet.Shapes("CommandButton1").TopLeftCell.Address
MsgBox ActiveSheet.Shapes("ボタン 1").BottomRightCell.Address

この回答への補足

お返事ありがとうございます。

もう少し詳しく教えていただけますでしょうか。

補足日時：2010/03/15 09:07