Insertion d'objets (WordArt)

Résolu/Fermé
mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 - 18 mars 2016 à 23:51
mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 - 19 mars 2016 à 00:16
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

eriiic Messages postés 24467 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 1 décembre 2022 7 143
18 mars 2016 à 23:59
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
0
mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 10
19 mars 2016 à 00:04
Re,

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

Cordialement
0
mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 10
19 mars 2016 à 00:16
Re, eric

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

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



Cordialement
0