A problem with a macro for Excel 2016 for Mac (from a french teacher)

[Malingrey69]

Hello guys

I’m not a very good user of Excel on Mac and i’m an occasional teacher. For many long time, I use a macro called « Stataix » withe help me to draw dot plot graphic. I know it’s inside Excel’16 now but I can do some thing with this macro I can’t do usually with the new version of Excel. This major allways work with PC (my PC’s owner student are happy) but doesn’t work with a mac. Can you take 5 minutes to tell me if there’s a solution…Or if I need to find myself a way to correct it ?


Many thanks for your possible answer.


Best regard


José

Option Explicit
Public Const APPNAME = "StatAix"
Public Const APPVERSION = "1.2"
Public Const StatAixCaption As String = APPNAME
Public Const DBoitamouCaption As String = "Donnees Boîte à moustaches"
Public Const DBoitamouMacro As String = "DonneesBoiteAMoustaches"
Public Const GBoitamouCaption As String = "Graph Boîte à moustaches"
Public Const GBoitamouMacro As String = "GraphBoiteAMoustaches"
Public Const DesinstallerCaption As String = "Desinstaller"
Public Const DesinstallerMacro As String = "Desinstaller"

Sub CreateMenu()
Dim XLCommandBar As Integer
Dim NewMenu As CommandBarPopup
Dim NewItem As CommandBarButton
Dim ToolsMenu As CommandBarPopup

XLCommandBar = 1 'Worksheet Menu Bar

' This code handles non-English versions of Excel
' in which the 'Tools' menu has a different name
Set ToolsMenu = CommandBars(XLCommandBar).FindControl(msoControlPopup, 30007)

' Delete the current menu if it exists (just in case)
On Error Resume Next
CommandBars(XLCommandBar).Controls(StatAixCaption).Delete
On Error GoTo 0

' Create the new menu item
Set NewMenu = CommandBars(XLCommandBar).Controls.Add(Type:=msoControlPopup) >>> This instruction doesn’t work on Mac. But works on a PC...
NewMenu.Caption = StatAixCaption

 

[Paul Ked]

X-posted here: http://www.vbaexpress.com/forum/showthread.php?61861-VBA-Code-problem-for-Excel-2016-on-a-mac

Cross posting is against the rules, please read them.

 

[MARK858]

X-posted here: http://www.vbaexpress.com/forum/showthread.php?61861-VBA-Code-problem-for-Excel-2016-on-a-mac

Cross posting is against the rules, please read them.

I think you meant cross-posting without posting a link to the cross-post is against the rules

 

[Paul Ked]

:Blush: Sorry, I did

 

[Malingrey69]

X-posted here: http://www.vbaexpress.com/forum/showthread.php?61861-VBA-Code-problem-for-Excel-2016-on-a-mac

Cross posting is against the rules, please read them.

Sorry for my mistakes. I thought it wasn't the same website (even if the "look & feel are close). I'm now in a so bad position that I don't know which sant to pray to find a solution.

Thank you for your time

 

[KevCarter]

Hello guys

I’m not a very good user of Excel on Mac and i’m an occasional teacher. For many long time, I use a macro called « Stataix » withe help me to draw dot plot graphic. I know it’s inside Excel’16 now but I can do some thing with this macro I can’t do usually with the new version of Excel. This major allways work with PC (my PC’s owner student are happy) but doesn’t work with a mac. Can you take 5 minutes to tell me if there’s a solution…Or if I need to find myself a way to correct it ?


Many thanks for your possible answer.


Best regard


José




<article>

Option Explicit
Public Const APPNAME = "StatAix"
Public Const APPVERSION = "1.2"
Public Const StatAixCaption As String = APPNAME
Public Const DBoitamouCaption As String = "Donnees Boîte à moustaches"
Public Const DBoitamouMacro As String = "DonneesBoiteAMoustaches"
Public Const GBoitamouCaption As String = "Graph Boîte à moustaches"
Public Const GBoitamouMacro As String = "GraphBoiteAMoustaches"
Public Const DesinstallerCaption As String = "Desinstaller"
Public Const DesinstallerMacro As String = "Desinstaller"

Sub CreateMenu()
Dim XLCommandBar As Integer
Dim NewMenu As CommandBarPopup
Dim NewItem As CommandBarButton
Dim ToolsMenu As CommandBarPopup

XLCommandBar = 1 'Worksheet Menu Bar

' This code handles non-English versions of Excel
' in which the 'Tools' menu has a different name
Set ToolsMenu = CommandBars(XLCommandBar).FindControl(msoControlPopup, 30007)

' Delete the current menu if it exists (just in case)
On Error Resume Next
CommandBars(XLCommandBar).Controls(StatAixCaption).Delete
On Error GoTo 0

' Create the new menu item
Set NewMenu = CommandBars(XLCommandBar).Controls.Add(Type:=msoControlPopup) >>> This instruction doesn’t work on Mac. But works on a PC...
NewMenu.Caption = StatAixCaption
​

</article>

Unfortunately, CommandBars are broken in 2016 for the Mac. I have yet to find a workaround, so I'm stuck in Office 2011 when working on my Mac.

 

[MARK858]

See if the link below helps.

http://www.rondebruin.nl/mac/macribbon/ribbonmac.htm

 

[KevCarter]

See if the link below helps.

http://www.rondebruin.nl/mac/macribbon/ribbonmac.htm

Thank you Mark!

 

[Malingrey69]

See if the link below helps.

http://www.rondebruin.nl/mac/macribbon/ribbonmac.htm

Thank you. I contacted him