How can I add a new menu to the coreldraw by the VBA

Hi All:

I want to add a new menu to the coreldraw , but I do't know how to do so ?

Thanks!

Hi Levin,

afaik you can't

The CorelDraw 10 & 11 object models have a lot of classes like CommandBar(s), CommandBarControl(s), etc.
You can add a new CommandBar with the Add method, but you can't create a button or menu item into it :!:

I hope this will change with the next version...

Jean-Marie

Hi JMP:

Thank for your reply, I will try to use CommandBar, It's also a method for my application.

Hope later version will change as AutoCAD VBA!

Hi JMP and Alex:

I have try go do as you tell me , but now I have meet a question again.
Here is the code which I Have written:

Dim cmdbar As commandbar
Set cmdbar= Application.CommandBars.Add("test")
cmdbar.Visible = True

How can add a new button the "test" command bar and link the button to a VBA form.
Thank you!

Alas, I think you can't create a button into any CommandBar ! Perhaps with CorelDraw 12 ?

Jean-Marie

Topic revival: Anyone succeded with this in CorelDraw 12 :?:

Well I did

1. Searching for CommandBar (in order to prevent creating a CommandBar many times)

Private Function FindCommandBarByName(cName As String) As CommandBar
    Dim nIndex As Long
    For nIndex = 1 To Application.CommandBars.Count
        If (Application.CommandBars.Item(nIndex).Name = cName) Then
            Set FindCommandBarByName = Application.CommandBars.Item(nIndex)
            Exit Function
        End If
    Next nIndex
    Set FindCommandBarByName = Nothing
End Function

2. Creating a CommandBar

Dim oToolbar As CommandBar
Set oToolbar = FindCommandBarByName("ToolbarName")
If oToolbar Is Nothing Then
Set oToolbar = Application.CommandBars.Add("ToolbarName", cuiBarFloating, False)
End If

oToolbar.Visible = True 'Show it

3. Adding a button that will execute a given macro

Dim oButton As CommandBarControl
Set oButton = oToolbar.Controls.AddCustomButton _
("Macros", "GMSName.ModuleName.MacroName", 1, False)

Hope you find this useful
Other stuff like assigning keyboard shortcut keys is under research

Don't forget to add VBA referrence to VGCore (Corel - Vector Graphics Core 12.0 Type Library)

Hi Zlatev,

Thanks for the tip ! When I am applying your code to an existing macro, I can see the bar, but the button is grayed.
However, if I add a new button by menu, this button is enabled !

Regards,

Jean-Marie

[Alex]

Actually the category ID should be different, not "Macros".

This post will explain how to do it: http://www.oberonplace.com/forum/vie...hp?p=2235#2235

Well on my CDR12 it worked fine with category "Macros" (with capital M)
Also you should specify existing GMS name, module name and the public sub name instead of GMSName.ModuleName.MacroName in code

I also tested it with "2cc24a3e-fe24-4708-9a74-9c75406eebcd" - it works too.
The strange thing is that I cannot find neither IID, neither CLSID in registry with this value.
So it seems that this is neither Interface, nor Class in terms of Platform SDK meanings for Interface and Class.

My mistake was to replace "Macros" with my own title ...

If I use "Macros" or the GUID as CategoryID, your code works fine with my french version.