property ، method ، event و سایر کدها در اکسل

[Nima]

با سلام خدمت دوستان
در چند بخش اطلاعاتی در موردCommand bars تقدیم میکنم امیدوارم مفید باشه
1-نحوه ساختن Command bar
به طور کلی در مجموعه نرم افزار های آفیس به دو شیوه می توان به شخصی سازی Toolbar پرداخت :
الف: استفاده از Customize dialog box
ب: Microsoft® Visual Basic® for Applications (VBA) code
در نرم افزار Access شما قادر هستید از روش الف منو ها و pop-up منو ها(منوهای جهنده) را تولید نمایید ،اما در سایر نرم افزار های مجموعه افیس می بایست از VBA برای توسعه منو ها و pop-up منو ها استفاده نمایید.
جهت ساخت command bar یا همان منو های شخصی مجموعه ای از روش ها(method) گرد آوری شده است.
برای ساخت toolbar , menu bar,و pop-menu bar می بایست از متد msoBarMenuBar یا msoBarPopup استفاده نمود.
در زیر نمونه ای جهت ایجاد موارد فوق مشاهده می کنید:
[align=left]

Sub Create_Menu()
Dim MyBar As CommandBar
Dim MyPopup As CommandBarPopup
Dim MyButton As CommandBarButton

Delete_Menu

Set MyBar = CommandBars.Add(Name:="My Menu", _
    Position:=msoBarFloating, temporary:=True)

With MyBar
    .Top = 125
    .Left = 850

    Set MyPopup = .Controls.Add(Type:=msoControlPopup)
    With MyPopup
        .Caption = "Popup 1"
        .BeginGroup = True
        Set MyButton = .Controls.Add(Type:=msoControlButton)
        With MyButton
            .Caption = "Button 1a"
            .Style = msoButtonCaption
                       .BeginGroup = True
            .OnAction = "Macro1a"
        End With
        Set MyButton = .Controls.Add(Type:=msoControlButton)
        With MyButton
            .Caption = "Button 1b"
            .Style = msoButtonCaption
            .BeginGroup = False
            .OnAction = "Macro1b"
        End With
    End With
    Set MyPopup = .Controls.Add(Type:=msoControlPopup)
    With MyPopup
        .Caption = "Popup 2"
        .BeginGroup = False
        Set MyButton = .Controls.Add(Type:=msoControlButton)
        With MyButton
            .Caption = "Button 2a"
            .Style = msoButtonCaption
            .BeginGroup = True
            .OnAction = "Macro2a"
        End With
        Set MyButton = .Controls.Add(Type:=msoControlButton)
        With MyButton
            .Caption = "Button 2b"
            .Style = msoButtonCaption
            .BeginGroup = False
            .OnAction = "Macro2b"
        End With
    End With
    .Width = 100
    .Visible = True
End With
    
End Sub 

[/align]

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