Comment ajouter un onglet de Ruban personnalisé à l'aide de VBA?

Je suis à la recherche d'un moyen pour ajouter un onglet personnalisé dans le ruban d'Excel qui porterait sur quelques boutons. Je me trouvai sur certaines ressources d'adressage via Google, mais tous l'air douteux et extrêmement compliqué.

Ce qui est une façon simple et rapide à faire ? J'aimerais le nouvel onglet de se charger quand mon VBA est chargé dans Excel..

Mise à JOUR :
J'ai essayé cet exemple de ici, mais un "objet requis" erreur sur la dernière instruction :

Public Sub AddHighlightRibbon()
Dim ribbonXml As String

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:button id=""highlightManualTasks"" label=""Toggle Manual Task Color"" "
ribbonXml = ribbonXml + "imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
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
  • Veuillez confirmer dans quelle version d'Excel que vous utilisez?
  • Je suis à l'aide de 2007
  • C'est pour le Projet.
InformationsquelleAutor BuZz | 2012-01-13