Discussion :

[franckb74]

Bonjour,

J'aimerai pouvoir personnaliser l'affichage des étiquettes "Label" dans mon ruban :

1. police de caractère
2. taille
3. gras
4. italique

Mon étiquette s'appelle :

Code :

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

<labelControl id="Etiquette1" getLabel="CallbackGetLabel" />

Je ne maîtrise pas bien la fonction "GetLabel" ni le code VBA qui va avec pour ces 4 cas possibles ou peut-être s'agit-il d'une autre fonction pour y arriver.
Quel code VBA devrais-je taper pour chaque cas possible et est-ce que ce début de syntaxe est correcte pour une étiquette "Etiquette1" qui afficherait dans le ruban : "Gestion des tests" ?

Code :

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

1
2
3
4
5
6
7
8
9
Sub CallbackGetLabel(control As IRibbonControl, _
                     ByRef label)
    ' Callback Label
        ' définir la police
            Etiquette1 = Format(????????)
 
        ' changer la taille ....
 
End Sub

Merci pour votre aide,
Franck

[Tofalu]

Je ne pense pas que cela soit possible.

Je n'ai jamais vu de formatage particulier dans le ruban.

[franckb74]

Merci pour ta réponse,

Quelle est la syntaxe pour formater une zone texte en vba ?

Merci,
Franck

[Tofalu]

Si votre zone de texte accepte le texte enrichi, vous pouvez utiliser du code HTML

[franckb74]

Je ne connais malheureusement pas le code html

[Tofalu]

<u> <i> <b>

Etc.

[franckb74]

Merci,

Comment doit-on l'écrire ?

Code :

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

<b> & [nomducontrole]

[jimbolion]

franckb74 bonjour,

Un exemple ici qui nous donnera : Gras Souligné rouge

Code :

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

Me.Memo = "<b>" & "Gras" & "</b>" & " " & " <u>" & "souligné" & "</u>" & " " & "<font color=" & Chr(34) & "red" & Chr(34) & ">" & " rouge" & "/<font"

Mais une bonne lecture de cet article devrait t'en apprendre un peu plus sur l'utilisation des formats enrichis :

http://heureuxoli.developpez.com/Acc12RTF/

JimBoLion

[franckb74]

Merci pour les syntaxes !

Je viens de trouver une proposition de Christophe Warin pour définir le format d'un contrôle editBox
http://access.developpez.com/access2...#RibbonFormat2

Il explique :
Le format des zones de texte n'est pas prévu dans le schéma XML du ruban. Toutefois, chaque contrôle propose un attribut tag vous permettant d'y stocker n'importe quelle information non prévue à l'origine (comme c'est le cas avec les contrôles VBA). Alors pourquoi ne pas y stocker le format de la zone de texte.
En reprenant le principe de la Q/R comment formater, on obtient :

XML :

Code :

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

<editBox id="txtDesc" label="Desc :" getText="getDescText" onChange="txtDesc_change" tag=">"/>

VBA :

Code :

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

1
2
3
Sub getDescText(control As IRibbonControl, ByRef text)
text = Format(strDesc,control.Tag)
End Sub

Serait-il possible de le transposer pour un contrôle "label" ?

[Tofalu]

Il s'agit de format au sens de ce que la fonction Format propose. A aucun moment il ne s'agit de mettre en gras ou en italique. Avez-vous lu l'aide sur la fonction Format ?

[franckb74]

Non je suis un peu profane en la matière :-( et j'ai certainement lu un peu trop vite ...
Tant pi merci tout de même !
Très bonne fin de journée