جعل user form بها شريط مهام

[checles]

السلام عليكم 

برجاء المساعده في عمل شريط في user form استطيع من خلاله سحب الشاشه الي اعلي او اسفل او يمن او يسار 

 

وشكرا 

test.xlsm

[محمد هشام.]

تفضل جرب المرفق التالي واختار ما يناسبك 

Private Sub UserForm_Initialize()
   Me.ScrollHeight = Me.Height * 2
End Sub
'OR
Private Sub UserForm_Initialize()
  Me.ScrollHeight = Me.Height
  Me.Height = Me.Height / 2
End Sub
'OR
Private Sub UserForm_Activate()
    With Me
    .ScrollBars = fmScrollBarsHorizontal
    .ScrollWidth = .InsideWidth * 1.5
    End With
End Sub

 

test (1).xlsm