Discussion :

[ONTAYG]

Bonjour,

Même soucis, et la solution est là :

https://www.developpez.net/forums/d2...e-complements/

Personnellement je ne l'ai pas encore mis en oeuvre.

ONTAYG

[popovivi]

Merci pour l'info que je n'avais pas trouvée.
Je confirme que cela fonctionne parfaitement après l'ajout des clés du registre.

OUf !

Très cordialement

[harpyopsis]

Bonjour à tous !

Et merci et félicitations à l'auteur pour ce très bel outil...

Droit au but :

Comment est-il possible d'aligner verticalement deux ou trois boutons à l'intérieur d'une boite dans un groupe dans un onglet ? Par défaut on dirait qu'ils ne s'alignent qu'horizontalement, ce qui est peu pratique...

Merci d'avance si quelqu'un a une réponse !

phil

[harpyopsis]

Ca y est, ça marche : je viens de trouver boxStyle="vertical" et boxStyle="horizontal" sur StackOverFlow à insérer après BoxID dans l'éditeur HTML.

Si ça peut aider quelqu'un !


....Et je viens de voir après une heure que la propriété BoxStyle était là juste en face de mon nez dans la liste des attributs !!!!



Ce sera trois Pater et cinq Ave pour pénitence... Comment peut-on être aussi stupide avec un aussi bel outil entre les mains ???

[MarlysaDeLaLance]

Bonjour,

Même soucis, et la solution est là :

https://www.developpez.net/forums/d2...e-complements/

Personnellement je ne l'ai pas encore mis en oeuvre.

ONTAYG

Bonjour,
Je viens de passer sur mon nouvel ordi et l'assistant Ruban ne fonctionne plus: je n'ai pas les droits suffisants (Office 365 x34 v 2010). J'ai essayé de créer la clé de registre mais ça ne marche pas. Qulqu'un aurait'il une idée?

[Jackyp]

Bonjour,

J'utilise actuellement l'assistant pour la création d'un ruban avec Access 2021.
Lors d'essais, j'ai remarqué que le déplacement soit vers le haut ou vers le bas de boutons contenus dans un groupe se déplaçaient incorrectement dans l'arborescence des éléments affichés.
Après un déplacement d'un bouton donnant un affichage incorrect de la position, si j'affiche l'éditeur Xml, je vois que l'ordre des boutons est correct dans le code.
Ensuite, si j'affiche à nouveau l'arborescence, à ce moment, les boutons sont bien repositionnés.

Voici un code Xml du ruban pour test.

Code XML :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
<ribbon startFromScratch="true">
<tabs>
<tab id="tab1" label="TabEssai">
<group id="group1" label="Essai">
<button id="button1" imageMso="AppointmentColor2" label="Essai"/>
<button id="button2" imageMso="AppointmentColor7" label="Essai"/>
<button id="button3" imageMso="AppointmentColor2" label="Essai"/>
</group>
</tab>
</tabs>
</ribbon>
</customUI>

Avec l'utilisation du ruban avec Access 2021, j'ai remarqué que "OfficeFeedback" n'était pas présent dans la liste des éléments idMso.
Cet élément a été ajouté à partir de la version d'Access 2016.
Il me sert à masquer la page "Votre avis" du Backstage.
J'ai dû directement ajouter cet élément à partir de l'éditeur XML.
Cela fonctionne correctement, j'ai juste un message d'erreur (L'idMso du contrôle tab(TabOfficeFeedback) n'exite pas).

Code XML :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="BackStage_OnLoad">
<backstage>
<tab idMso="TabPrint" visible="false"/>
<tab idMso="TabOfficeFeedback" visible="false"/>
<button idMso="ApplicationOptionsDialog" visible="false"/>

Bien à vous

Jacky Perpète

[Jackyp]

Bonjour,

Concernant le problème de déplacement haut ou bas d'éléments dans l'arborescence et en suivant le déroulement du programme du ruban en VBA, j'ai remarqué le point suivant :

Dans la classe ClRibbon à la fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Function MoveElement(poElt As clRibbonElement, poEltParent As clRibbonElement, poEltBefore As clRibbonElement) As Boolean

A la ligne de code qui attribue la propriété définie dans la classe CtrlTeeElement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

loTreeElt.ParentKey = poEltParent.PointerStr

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Public Property Let ParentKey(pParentKey As String)
Dim loEltParent As CtrlTreeElement
If pParentKey <> "" Then
    ' Impossible de déplacer un élément sur un des fils
    Set loEltParent = oTree.Elements(pParentKey)						
    Do						
        If loEltParent.ParentKey = "" Then Exit Do						
        Set loEltParent = oTree.Elements(loEltParent.ParentKey)
        If loEltParent.Key = Key Then
            Exit Property
        End If
    Loop
End If
If gParentKey <> "" Then
    oTree.Elements(gParentKey).Childs.Remove Me.Key
Else
    oTree.ElementsRoot.Remove Me.Key									'(Efface l'élément en cours)
End If
If pParentKey <> "" Then
    oTree.Elements(pParentKey).Childs.Add Me, Me.Key					
Else
    oTree.ElementsRoot.Add Me, Me.Key									'(Ajoute l'élément en cours toujours au bas de la liste)
End If
gParentKey = pParentKey
End Property

A partir de cette propriété, l'élément en cours qui doit être déplacé est d'abord supprimé puis ajouté en fin de la collection 'ElementsRoot'.
L'ajout de l'item en fin de collection n'est pas toujours correct. Il peut être inséré entre le premier et dernier item de la collection.
C'est ce qui pose actuellement un problème pour le déplacement à partir des boutons haut et bas d'un élément dans le TreeView.

Ne faudrait-il pas utiliser un pointeur dans la collection avant d'ajouter l'item avant ou après ce pointeur pour la méthode 'Add'?
Dans la classe ClRibbon lors de la sélection d'un déplacement, le changement de l'ordre des items de la collection 'Elements' est correctement réalisé avec l'utilisation du pointeur 'poEltBefore.PointerStr'

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
oFormMain.oNav.Elements.Remove loTreeElt.Key
oFormMain.oNav.Elements.Add loTreeElt, loTreeElt.Key, poEltBefore.PointerStr

Voici l'illustration du problème.


Arkham46 peut-il encore modifier le code pour résoudre ce problème?

Merci.

[Arkham46]

Bonjour,

Lors d'essais, j'ai remarqué que le déplacement soit vers le haut ou vers le bas de boutons contenus dans un groupe se déplaçaient incorrectement dans l'arborescence des éléments affichés.

Corrigé dans la version 2.0.10.

Merci Jacky.

[curt]

Bonsoir Arkham46,

quel plaisir de voir que tu améliores encore cette fabuleuse appli (j'avais un beau message "nouvelle version disponible" ce matin)
Ton appli ne me quitte pas et m'a maintes fois servie à construire des beaux Ruban (Excel et Acess)
Du grand art
Curt

[Jackyp]

Bonjour Arkham46,

Un très grand merci pour votre correction.
Ce programme est une aide précieuse et d'une très grande utilité.

Jacky

[Jean-Philippe André]

Salut,

avec les dernières versions de Windows et toutes les restrictions qui sont apparues, c'est avec un grand plaisir que j'utilise à présent ton outil, aux petits oignons.

Merci !

[cairve]

Salut,

Merci pour ce programme qui facilite grandement la maintenance des menus, et bien plus pratique que CustomUIEditor

Par contre, chez moi, j'ai un soucis : je possède un écran 4k, et quand je lance le fichier (Access démarre toujours en full screen), j'ai pleins d'erreurs : celle-ci produise dans InitializeTree.
Ma solution pour réussi à lancer le fichier quand j'ai le message d'erreur :
- mettre un point d'arrêt au début de InitializeTree, et réexécuter le code jusqu'à ce point d'arrêt ;
- réduire la taille de la fenêtre d'Access ;
- poursuivre le code.

Et plus de soucis.

Merci d'avance pour une prochaine correction

PS: et aussi un truc : les commentaires dans l'XML ne sont pas très aimés

[deedolith]

Bonjour,

Sauf erreur de ma part, il n'est pas possible d'intégrer des images dans les fichiers Office afin de les utiliser comme icônes dans le ruban.
actuellement, on doit passer par l'évènement LoadImage et charger des images externes au document Office.

D'après ce que j'ai lu sur internet, c'est possible (les outils concurrents prennent cela en charge), par contre je n'ai pas réussi à mettre le grapin sur les specs.

Une telle fonctionnalité est elle prévue prochainement ?

[deedolith]

Bonjour,

Une mise à jour pour intégrer les derniers imageMso (idMso aussi ?) est elle prévue ?
Ou faute de mieux, comment mettre à jour le référentiel ?
Les imageMso suivant ne semblent pas reconnus et sont signalés en erreur dans la fenêtre de validation:
(liste non exhaustive)

ArrangeByAccount
CatalogMergeGoToPreviousRecord
CatalogMergeGoToNextRecord
AddCalendarMenu
BuildingBlocksSaveTableOfContents
GroupResolveToolConflictsAndErrors
ApproveApprovalRequest
ButtonTaskSelfSupport

[popovivi]

Bonjour à tous,

la MAJ est impossible voici le message d'erreur qui m'est renvoyé.
Quelqu'un a la solution ?



J'utilise la version M365 à jour, (Version 2310 Build 16.0.16924.20054) 64 bits

Merci d'avance.

[harpyopsis]

Bonsoir Thierry !
A côté de mon onglet personnalisé, j'ai inséré les onglets standards "Home", "External Data", "Create" et "Database Tools", qui apparaissent parfaitement.
J'ai aussi inséré les deux onglets classiques de FormDesign "Design" et "Arrange" (en mode "visible" bien-sur). Malheureusement, ceux-ci n'apparaissent pas lorsque je travaille mes formulaires en mode design.
Quelle peut être la raison ?
J'ai vu qu'ils existent en différentes versions (FormToolsDesign, FormToolsLayout, ControlsLayout,...). J'ai tout essayé mais rien n'y fait...
Une suggestion ? Où est-ce que je cafouille ?
Un grand merci pour tes lumières !!!
phh