Message 1 of 1
PopUp Menu Icons VBA

Not applicable
04-06-2010
01:59 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
I created a PopUp Menu but I can't associate an icon to this button.
Is there any properties doing that or any other solution to use an icon for the menu item?
Here's my code.
{code}
Sub CassiopeaStartup()
ToolBarName = "CassiopeaCatalogation" 'Set Toolbar Name
Set L_Menus = ThisDrawing.Application.MenuGroups.Item(0).Menus
Set L_Menu = L_Menus.Add(ToolBarName)
L_Menu.InsertInMenuBar (10)
'create menu button
Set MenuItem = L_Menu.AddMenuItem(0, "Catalogation", "-vbarun" & vbCr & Chr(34) & _
"./Catalogation/CassiopeaCatalogation.dvb!Catalog" & Chr(34) & vbCr)
End Sub
{code}
Thanks a lot!
Is there any properties doing that or any other solution to use an icon for the menu item?
Here's my code.
{code}
Sub CassiopeaStartup()
ToolBarName = "CassiopeaCatalogation" 'Set Toolbar Name
Set L_Menus = ThisDrawing.Application.MenuGroups.Item(0).Menus
Set L_Menu = L_Menus.Add(ToolBarName)
L_Menu.InsertInMenuBar (10)
'create menu button
Set MenuItem = L_Menu.AddMenuItem(0, "Catalogation", "-vbarun" & vbCr & Chr(34) & _
"./Catalogation/CassiopeaCatalogation.dvb!Catalog" & Chr(34) & vbCr)
End Sub
{code}
Thanks a lot!