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
-
mijean94
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

Messages postés
23187
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
17 janvier 2020
5858
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
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
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