Excel 2003 addins in Excel 2007

[oteixeira]

Hello to everyone.

I just installed Office 2007 and started receiving a lot of errors when loadind addins written in the Excel 2003 version. Does this mean that i have to re-write all code under the Excel 2007 version?

Thanks in advance for any help.

Octavio

[royUK]

Some coding needs to be different, what sort of errors are you getting.

[oteixeira]

Thank you for your prompt answer. The following lines of code are ignored.

Dim cMenu1 As CommandBarControl
Dim cbMainMenuBar As CommandBar
Dim iHelpMenu As Integer
Dim cbcCustomMenu As CommandBarControl
Dim connectStat As Boolean

On Error GoTo erro

Application.CommandBars("Worksheet Menu Bar").Controls("Iv&a").Delete
On Error GoTo erro
 Set cbMainMenuBar = Application.CommandBars("Worksheet Menu Bar")
 iHelpMenu = cbMainMenuBar.Controls("Help").Index

   Set cbcCustomMenu = cbMainMenuBar.Controls.Add(Type:=msoControlPopup, Before:=iHelpMenu)
     '(5)Give the control a caption
     cbcCustomMenu.Caption = "Iv&a"
     cbcCustomMenu.TooltipText = "Dados para cálculo IVA"

Thank you
Octavio

[royUK]

Excel 2007 does not support menus & Toolbars.


If you look in the Addins Tab you should find the addins

[oteixeira]

Ok, see that i have to re-write some code.

Thanks a ton for your kind help.

Octavio

[royUK]

If you are satisfied with the solution(s) provided, please mark your thread as Solved.

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save

[oteixeira]

Hello Roy.

I believe your answer is not 100% correct.
I found out that Excel 2007 accepts the code with a few changes, as follows:

Private Sub Workbook_Open()

On Error GoTo erro
Dim cbr As CommandBar
Dim ctlMenu As CommandBarControl
Set cbr = Application.CommandBars("Worksheet Menu Bar")
If ctlMenu Is Nothing = False Then
Set ctlMenu = cbr.Controls.Add(Type:=msoControlPopup)
    With ctlMenu
        .Caption = "IVA"
        With .Controls.Add(Type:=msoControlButton)
            .Caption = "Parâmetros"
            .OnAction = "VatParam"
        End With

        With .Controls.Add(Type:=msoControlButton)
            .Caption = "Resumo"
            .OnAction = "FazResumo"
        End With

        With .Controls.Add(Type:=msoControlButton)
            .Caption = "Recapitulativo"
            .OnAction = "Recap"
        End With

    End With
End If
End Sub

Thank you, anyway.
Octavio