Solved: Menu maker

Thank you Malcolm,

I didn't understand what you meant by "Can you have a caption and a FaceID?" sorry

I was trying to do it like

Code:

---

Sub AddCont(Menu, MyCap, MyAct,FaceId)
    With Menu.Controls.Add(Type:=msoControlButton)
        .Caption = MyCap
        .OnAction = MyAct
    End With
End Sub

---

it said the function was not defined, so I tried to put a Dim in but that didn't work either.


Thank you very much for helping

Your way way works great

Nurofen

I have been able to add Face Id to all menus with a Maco, but I can't with the non-Macro ones

Code:

---

Sub AddSub(Menu, MyCap, Optional Bef, FID)
    If Not IsMissing(Bef) Then
        Set cbcCutomMenu = Menu.Controls.Add(Type:=msoControlPopup, Before:=Bef)
    Else
        Set cbcCutomMenu = Menu.Controls.Add(Type:=msoControlPopup)
    End If
If Not IsMissing(FID) Then .FaceId = FID
    cbcCutomMenu.Caption = MyCap
   
End Sub

---

Thank for you time

Nurofen

[VBA]If Not IsMissing(FID) Then cbcCutomMenu.FaceId = FID[/VBA]

Hi,

I'm reall sorry about this but I can't get it to work, If you don't mind can you please give me a tip to what I'm doing wrong.

Code:

---

Sub AddSub(Menu, MyCap, Optional FID, Optional Bef)
    If Not IsMissing(Bef) Then
    If Not IsMissing(FID) Then cbcCutomMenu.FaceId = FID
    Set cbcCutomMenu = Menu.Controls.Add(Type:=msoControlPopup, Before:=Bef)
        Set cbcCutomMenu = Menu.Controls.Add(Type:=msoControlPopup, Before:=FID)
    Else
        Set cbcCutomMenu = Menu.Controls.Add(Type:=msoControlPopup)
    End If
   
    cbcCutomMenu.Caption = MyCap
   
End Sub

---

It allows me to run the code but no Face Id appears

Code:

---

Call AddSub(CCM1, "MM1", 420)
    Set CCM2 = cbcCutomMenu

---

Thankyou for your time


Nurofen

It appears you can add a FaceID and a Caption to a Control, but not to a Pop-Up. So you can use it the the AddCont lines, but not the AddSub lines.

[VBA]Call AddCont(CCM5, "M2", "MyMacro2", 420)

Sub AddCont(Menu, MyCap, MyAct, Optional FID)
With Menu.Controls.Add(Type:=msoControlButton)
.Caption = MyCap
.OnAction = MyAct
If Not IsMissing(FID) Then .FaceId = FID
End With
End Sub

[/VBA]

Quote:

---

Originally Posted by Nurofen

[VBA] Sub AddSub(Menu, MyCap, Optional FID, Optional Bef)
If Not IsMissing(Bef) Then
If Not IsMissing(FID) Then cbcCutomMenu.FaceId = FID
Set cbcCutomMenu = Menu.Controls.Add(Type:=msoControlPopup, Before:=Bef)
Set cbcCutomMenu = Menu.Controls.Add(Type:=msoControlPopup, Before:=FID)
Else
Set cbcCutomMenu = Menu.Controls.Add(Type:=msoControlPopup)
End If

cbcCutomMenu.Caption = MyCap

End Sub[/VBA]

---

Would the spelling mistake in "cbcCutomMenu" be causing an issue?

Hi mdmackillop,

Thanks for clearing that up for me.

Thank you for your time

Nurofen


Hi Aussiebear,

Sure it has nothing to do with the spelling,
I'm guessing the code wouldn't have run in the first place if there was a spelling error.

Nurofen

Hi Ted,
cbcCutomMenu is just a descriptive varable name. Any spelling will do, as long as it is consistent throughout the code. A misspelling of the declared variable would be picked up by using Option Explicit.

Hi mdmackillop,

I have a qustion is it wrong to put

'------------------------------------------------------------------
'Procedure Name(VBA) : Add Menu,Submenus and View One Sheet At A Time
'Date & Time : Date: Tuesday 9 October 2007 & Time: 02:58
'Author : Created by: Nurofen (the app)
'Purpose : My Company
'Comments : All Credit to Mdmackillop CodeAuthor,
for the menus
' : And Lucas for his help.
'-------------------------------------------------------------------

Thank you for your time

Nurofen

Hi Nurofen,
I don't need any credit in the code. If you want to include a link to the question in VBAX, that might prove more useful.
Regards
MD

No Problem mdmackillop, I hope I didn't offend

I just think it better to ask then do.

Comments:Guide to commandbar menu creating http://vbaexpress.com/forum/newreply...ote=1&p=118912

Thank you for your help and time

Nurofen

No Problem, but try
http://vbaexpress.com/forum/showthread.php?t=15471

Mybad wrong link sorry.

Lucky I put it up first


Nurofen