Расположить форму относительно кнопки на листе

[ольгаг]

Здравствуйте Уважаемые программисты!
Скажите пожалуйста, как исправить код ниже (vba excel 2003), чтобы форма открывалась располагаясь сразу под кнопкой ("Shapes(имя)"), щелкая по которой эта формы и вызывается?

Private Sub UserForm_Initialize()
With Me
 .StartUpPosition = 0
 .Top = ActiveSheet.Shapes(имя).Top
 .Left = ActiveSheet.Shapes(имя).Left
End With
End Sub

Заранее спасибо!

[SAS888]

Может так?

Private Sub UserForm_Initialize()
    With Me
        .StartUpPosition = 0
        .Top = ActiveSheet.Shapes(1).Top + .Height
        .Left = ActiveSheet.Shapes(1).Left - .Width / 2
    End With
End Sub

P.S. Обращение к объекту на листе по индексу. Замените на требуемое.

[ольгаг]

Сообщение от SAS888

Может так?

Private Sub UserForm_Initialize()
    With Me
        .StartUpPosition = 0
        .Top = ActiveSheet.Shapes(1).Top + .Height
        .Left = ActiveSheet.Shapes(1).Left - .Width / 2
    End With
End Sub

P.S. Обращение к объекту на листе по индексу. Замените на требуемое.

Нет.
Наверно надо добавить размеры меню и панелей инструментов окна excel (этой области). Но не знаю пока как.

[IgorGO]

Private Sub UserForm_Initialize()
    With Me
        .StartUpPosition = 0
        .Top = 0
        .Left = 0
    End With
End Sub

получите форму в левом верхнем углу экрана

проблема решается чем-то этим:
Window.PointsToScreenPixelsX
Window.PointsToScreenPixelsY

удачи!