[حل شده] اضافه کردن منو به فرم در اکسل

[mohsenrasti]

سلام و عرض ادب خدمت اساتید عزیز
میخوام به فرم اکسل منو اضافه کنم کد پایین رو نوشتم ولی میخوام با رفتن روی هر کدوم از گزینه های انتخابی به رنگ آبی در بیاد بعد از اینکه اشاره گر موس از روی منو کنار رفت گزینه های منو مخفی بشه ممنون میشم راهنماییم کنید با تشکر



Private Sub Label19_Click()
Workbooks.Add
End Sub
Private Sub Label20_Click()
Application.Dialogs(xlDialogOpen).Show
End Sub


Private Sub Label21_Click()
ActiveWorkbook.Save
End Sub


Private Sub Label22_Click()
Application.Dialogs(xlDialogSaveAs).Show
End Sub


Private Sub Label23_Click()
UserForm1.Hide
ActiveSheet.PrintPreview
UserForm1.Show
End Sub


Private Sub Label24_Click()
ActiveSheet.PrintOut
End Sub


Private Sub Label25_Click()
UserForm1.Hide
End Sub






Private Sub Label18_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label18.Font.Bold = True
Label18.Font.Size = 11
Frame2.Visible = True


End Sub


Private Sub UserForm_Click()
Frame2.Visible = False
End Sub

[majid_mx4]

با سلام
البته امیدوارم منظورتان را فهمیده باشم لطفافایل ضمیمه را بررسی نمایید.


موفق باشید میر

[mohsenrasti]

با سلام
البته امیدوارم منظورتان را فهمیده باشم لطفافایل ضمیمه را بررسی نمایید.


موفق باشید میر

ممنونم استاد عزیز لطف کردید عالی بود حل شد فقط منو که باز میشه میخوام وقتی اشاره گر موس رفت کنار بصورت خودکار بسته بشه الان با کلیک روی یوزر فرم منو بسته میشه

[majid_mx4]

سلام مجدد

لطفا فایل ضمیمه را بررسی نمایید.

توضیح : در صورت خارج شدن از محدوده منو بسته میشود

موفق باشید میر