Userform StartupPosition

Question

He hecho un buen calendario emergente en Excel y probó la posición de Forma de usuario con:

.Top = Application.Top + 125 .Left = Application.Left + 125

Esto funciona muy bien, sin embargo, lo que realmente me gustaría es tener la forma que aparece justo al lado de la celda activa.

Lo que he intentado a continuación no está funcionando y no estoy seguro de por qué.Quiero que la esquina superior izquierda del formulario toque la parte superior derecha de la celda activa, sin embargo, el formulario termina cubriendo la celda activa

.Top = ActiveCell.Top .Left = ActiveCell.Left + ActiveCell.Width

¿Alguna sugerencia?

Answer 1

Esto está funcionando para mí como espera:

    .Top = ActiveCell.Top + ActiveCell.Height / 2 + .Height
    .Left = ActiveCell.Left + ActiveCell.Width * 1.5

Answer 2

If Application.Version = "11.0" Then
Me.Top = Application.Top + [b7].Top + 70 - Windows(1).VisibleRange.Top
Else
Me.Top = Application.Top + [b7].Top - 4 +  (Application.CommandBars.Item("Ribbon").Height * 0.75) - Windows(1).VisibleRange.Top
End If
Me.Left = Application.Left + [b7].Left + 90 - Windows(1).VisibleRange.Left

no es tan malo ...