Insertion d'objets (WordArt) [Résolu/Fermé]

Signaler
Messages postés
341
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
7 novembre 2019
 -
Messages postés
341
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
7 novembre 2019
 -
Bonjour,

A chaque création d’un WordArt, il prend un numéro qui s'incrémente .
Donc si je fais plusieurs essais de création, mais toujours un seul Word Art à l’écran. Je ne connais pas le numéro de celui-ci.

Peut-on trouver le numéro du WordArt actif sur une feuille Excel ou imposer que le numéro soit toujours 1 à la création ?

L’objectif est de remplacer le numéro 9 dans l’exemple ci-dessous par celui du WordArt actif ou si possible qu’il soit toujours à 1. 

ActiveSheet.Shapes("WordArt 9")


Merci pour votre aide

Bien cordialement

3 réponses

Réponse 1 / 3
Messages postés
23904
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
4 mars 2021
 6 671
Bonjour,

tu le sélectionnes et tu le renommes dans la zone où apparait la référence en cours (à gauche de l'édition des formules).
Valider par Entrée.
eric
Réponse 2 / 3
Messages postés
341
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
7 novembre 2019
 7
Re,

Ok, mais comment faire cette action en VBA dans mon code ?

Cordialement
Réponse 3 / 3
Messages postés
341
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
7 novembre 2019
 7
Re, eric

Ok merci, j'ai trouver la solution avec ton aide. 

Selection.Name = "WordArt 1"
ActiveSheet.Shapes("WordArt 1").Select



Cordialement
Posez votre question