Comment mettre un texte sur une Editbox Ruban via VBA (Excel)
Comment puis-je mettre un texte dans un Ruban Editbox? Je ne peux pas le trouver sur internet :/
Je ne peux trouver des exemples de cliquez sur l'événement, mais rien à propos d'un texte à partir d'un Sous.
Ainsi, par exemple, je veux quelque chose comme ceci:
Sub settingText()
editboxname = "my text"
end sub
Voulez-vous dire que vous voulez une zone de texte apparaît dans le Ruban? Serait-ce similaire à la police déroulante dans l'onglet Accueil, par exemple?
Non, j'ai déjà la zone de texte dans le Ruban, et je veux juste mettre un texte en tout temps lorsque j'exécute un code. Je suis nouveau à cela et j'apprends, donc je vais vérifier sur la liste déroulante des trucs.
Je sais juste une façon de mettre un texte quand j'ouvre la feuille de calcul, mais je ne sais toujours pas comment mettre un texte quand je suis à l'aide de la feuille de calcul
J'ai trouvé une solution! Il y a quelques lignes pour le faire :S shulerent.com/2011/08/16/...
Merci de poster votre solution comme une réponse.
Non, j'ai déjà la zone de texte dans le Ruban, et je veux juste mettre un texte en tout temps lorsque j'exécute un code. Je suis nouveau à cela et j'apprends, donc je vais vérifier sur la liste déroulante des trucs.
Je sais juste une façon de mettre un texte quand j'ouvre la feuille de calcul, mais je ne sais toujours pas comment mettre un texte quand je suis à l'aide de la feuille de calcul
J'ai trouvé une solution! Il y a quelques lignes pour le faire :S shulerent.com/2011/08/16/...
Merci de poster votre solution comme une réponse.
OriginalL'auteur Braulio | 2013-09-06
Vous devez vous connecter pour publier un commentaire.
La solution que j'ai trouvé sur ce lien: http://www.shulerent.com/2011/08/16/changing-the-value-of-an-editbox-office-ribbon-control-at-runtime/
Voici un exemple que j'ai testé et ça a bien fonctionné:
OriginalL'auteur Braulio
C'est un petit moment que cette réponse a été publiée, et il semble y avoir une récente-ish à modifier le comportement du ruban, ce qui signifie que l'original de la réponse affichée peut ne pas être une solution de plus. Pour le dossier, j'utilise Excel 2013 avec quelques mises à jour qui sont datées d'après Braulio réponse.
Le cœur de la différence, c'est que Invalider et InvalidateControl sur le ruban ne se comportent pas de la même manière que précédemment. Cela signifie que InvalidateControl n'appelle pas la getText rappel sur la zone de texte. J'ai remplacé le InvalidateControl appels avec Invalidate (donc les forces d'un nouveau tirage au sort sur l'ensemble du ruban), et qui ne déclencher le rappel comme prévu.
Donc voici le code de ma solution pour un nom de fichier/bouton de navigation (remarque, j'ai inclus le code supplémentaire pour la mise en cache de l'INTERFACE utilisateur du ruban de référence sur un très caché de la feuille, de sorte que réinitialise au cours du développement de ne pas faire le ruban inaccessible).
Pour mémoire, voici le code XML pour les deux objets que je traite ici:
OriginalL'auteur greenbutterfly