Microsoft Project的RibbonXml VBA项目中不能使用带参数的过程
如果在Microsoft Project 使用以下代码：
Option ExplicitSub gallery_MSN_Click() 'Call the macro that belongs to the label when you click one of the labels. 'Example: When you click the first label it runs the macro named "macro_1". On Error Resume Next MsgBox ("It works") On Error GoTo 0End SubPrivate Sub AddHighlightRibbon() Dim ribbonXml As String Dim MyArray As Variant Dim item As Variant Dim cnt As Integer cnt = 0 MyArray = Array("Sheila Webster", "Brian Main", "Susan Zhang", "Anne Walzer", "Andrea Vogel", "Ronda Viescas", _ "Norman Harker", _ "Michelle Wells", _ "Wilma Yang", _ "Angel Wang", _ "Raymond Denny", _ "June Winograd") ribbonXml = "<mso:customUI xmlns:mso=""http://schemas.microsoft.com/office/2009/07/customui"">" ribbonXml = ribbonXml + " <mso:ribbon>" ribbonXml = ribbonXml + " <mso:qat/>" ribbonXml = ribbonXml + " <mso:tabs>" ribbonXml = ribbonXml + " <mso:tab id=""highlightTab"" label=""Highlight"" insertBeforeQ=""mso:TabFormat"">" ribbonXml = ribbonXml + " <mso:group id=""testGroup"" label=""Test"" autoScale=""true"">" ribbonXml = ribbonXml + " <mso:gallery id=""MSN"" " ribbonXml = ribbonXml + " label=""Go to MSN"" " ribbonXml = ribbonXml + " imageMso=""MenuTaskWellArrange"" " ribbonXml = ribbonXml + " size=""large""" ribbonXml = ribbonXml + " columns=""3"" " ribbonXml = ribbonXml + " rows=""10"" " ribbonXml = ribbonXml + " showItemLabel=""true"" " ribbonXml = ribbonXml + " onAction=""gallery_MSN_Click"" >" For Each item In MyArray ribbonXml = ribbonXml + " <mso:item id=""item" + CStr(cnt) + """ label=""" + item + """></mso:item>" cnt = cnt + 1 Next ribbonXml = ribbonXml + " </mso:gallery>" ribbonXml = ribbonXml + " </mso:group>" ribbonXml = ribbonXml + " </mso:tab>" ribbonXml = ribbonXml + " </mso:tabs>" ribbonXml = ribbonXml + " </mso:ribbon>" ribbonXml = ribbonXml + "</mso:customUI>" ActiveProject.SetCustomUI (ribbonXml)End Sub