Insertion d'objets (WordArt)

Résolu
mijean94 Messages postés 413 Date d'inscription   Statut Membre Dernière intervention   -  
mijean94 Messages postés 413 Date d'inscription   Statut Membre Dernière intervention   -
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

  1.
    eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    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
  2. mijean94 Messages postés 413 Date d'inscription   Statut Membre Dernière intervention   11
     
    Re,

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

    Cordialement
    0
  3. mijean94 Messages postés 413 Date d'inscription   Statut Membre Dernière intervention   11
     
    Re, eric

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

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


    Cordialement
    0