برای ایجاد منو ابتدا باید یک متغیر از نوع آبجکت تعریف کنی مثل newsubitem
فرض کن میخوای منویی بسازی با زیر منو ابتدا برای منو یک اسم بساز مثل menuname
بعد این اسم رو به متغیری که ایجاد کرده بودی اختصاص بده
کد HTML:
Set newsubitem = CommandBars("Worksheet menu bar").Controls("menuname ")
بعد باید زیر منو هارو ایجاد کنی که هر کدوم کاری که مد نظر داری انجام بدن
برای هر زیرمنو ابتدا باید یک اسم بذاری بعد ماکرویی که میخوای برات عملیاتی اجرا کنه بهش اختصاص بدی
کد HTML:
.Controls.Add(Type:=msoControlPopup).Caption = " submenuname1"
.Controls("submenuname1").OnAction = "macro1"
کد HTML:
Public Sub menu()
Dim newsubitem As Object
Application.CommandBars("Worksheet menu bar").Controls.Add(Type:=msoControlPopup).Caption = "menuname"
Set newsubitem = CommandBars("Worksheet menu bar").Controls("menuname ")
With newsubitem
.Controls.Add(Type:=msoControlPopup).Caption = " submenuname1"
.Controls("submenuname1").OnAction = "macro1"
.Controls.Add(Type:=msoControlPopup).Caption = " submenuname2"
.Controls("submenuname1").OnAction = "macro2"
.Controls.Add(Type:=msoControlPopup).Caption = " submenuname3"
.Controls("submenuname1").OnAction = "macro3"
End With
End Sub
برای حذف منویی که ایجاد کردی از کد زیر استفاده کن
کد HTML:
Public Sub removemenu()
CommandBars("Worksheet menu bar").Controls("menuname ").Delete
End Sub
علاقه مندی ها (Bookmarks)