1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
|
Private Sub UserForm_Activate()
'USF.Move ActiveWorkbook.Application.Left + 3, ActiveWorkbook.Application.Top
'USF.Move (ActiveWorkbook.Application.Left + 3) + (ActiveWorkbook.ActiveSheet.[b2].Left), (ActiveWorkbook.Application.Top) + (ActiveWorkbook.ActiveSheet.[b2].Top)
'USF.Move ActiveWorkbook.Charts.Application.Left + 3, ActiveWorkbook.Charts.Application.Top
'USF.Move ActiveWorkbook.Windows.Application.Left + 3, ActiveWorkbook.Windows.Application.Top
Lcel = ActiveWorkbook.ActiveSheet.[b2].Left
Tcel = ActiveWorkbook.ActiveSheet.[b2].Top
Lbook = ActiveWorkbook.Application.Left + 3
Tbook = ActiveWorkbook.Application.Top
'USF.Move Lbook + (Lcel - Lbook), Tbook + (Tcel - Tbook)
' MsgBox Lcel & vbCrLf & Tcel & vbCrLf & Lbook & vbCrLf & Tbook
'USF.Move Application.Left + 3, Application.Top
'USF.Move ActiveWindow.ActivePane.PointsToScreenPixelsX(0), ActiveWindow.ActivePane.PointsToScreenPixelsY(0)
'USF.Move T_WnPointsToScreenPixelsX_WnLeft, T_WnPointsToScreenPixelsY_WnTop
' MsgBox Sheets("UN").BTN1.Left & vbCrLf & _
ActiveWorkbook.Windows(1).PointsToScreenPixelsX(Sheets("UN").BTN1.Left) & vbCrLf & _
ActiveWorkbook.Windows(1).PointsToScreenPixelsY(Sheets("UN").BTN1.Top)
'USF.Left = ActiveWorkbook.Windows(1).PointsToScreenPixelsX(Sheets("UN").BTN1.Left)
'USF.Top = ActiveWorkbook.Windows(1).PointsToScreenPixelsY(Sheets("UN").BTN1.Top)
'USF.Move Application.Windows(1).PointsToScreenPixelsX(Sheets("UN").BTN1.Left), Application.Windows(1).PointsToScreenPixelsY(Sheets("UN").BTN1.Top)
Exit Sub
USF.Move _
(ActiveWorkbook.Application.Left + 3) + _
((ActiveWorkbook.ActiveSheet.[b2].Left) - (ActiveWorkbook.Application.Left + 3)) _
, _
(ActiveWorkbook.Application.Top) + _
((ActiveWorkbook.ActiveSheet.[b2].Top) - (ActiveWorkbook.Application.Top))
USF.Move T_WnPointsToScreenPixelsX_WnLeft, T_WnPointsToScreenPixelsY_WnTop
End Sub
Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
[c14].Value = USF.Left
[c15].Value = USF.Top
End Sub |
Partager