none
Error message: RRS feed

  • Question

  • Hello there ,I am woorking on MS Project vba code.Suddenly I am receiving this error message when I run my code .My code was working before but once I added more project it started giving me error message "Error Found in Custom UI XML of"ProjectOName" Line 1 Column 107.The quick access toolbar can only be customized in startFromScratch mode"

    Once I got this message I changed my code from

    NavBar = NavBar + "  <mso:ribbon>" to <mso:ribbon startFromScratch="true">" , now this gives me syntax error message.

    I have very small knowledge in programming.Could anyone please help me out from here.Thanks

    Public Sub Addcustomnavigation()
    Dim NavBar As String
    NavBar = "<mso:customUI xmlns:mso=""

    http://schemas.microsoft.com/office/2009/07/customui

    "">"
    NavBar = NavBar + "  <mso:ribbon startFromScratch="true">"
    NavBar = NavBar + "    <mso:qat/>"
    NavBar = NavBar + "    <mso:tabs>"
    NavBar = NavBar + "      <mso:tab id=""tool"" label=""Utilities"" insertBeforeQ=""mso:TabFormat"">"
    NavBar = NavBar + "        <mso:group id=""myTools"" label=""MyTools"" autoScale=""true"">"
    NavBar = NavBar + "          <mso:button id=""placeholder3"" label=""Work "" "
    NavBar = NavBar + "imageMso=""DiagramTargetInsertClassic"" onAction=""SumWork""/>"
    NavBar = NavBar + "        </mso:group>"
    NavBar = NavBar + "      </mso:tab>"
    NavBar = NavBar + "    </mso:tabs>"
    NavBar = NavBar + "  </mso:ribbon>"
    NavBar = NavBar + "</mso:customUI>"
    ActiveProject.SetCustomUI (NavBar)

    End Sub


    Tuesday, March 11, 2014 8:33 PM

Answers

All replies