Modifier un texte dans un Shape [Résolu]

Question

Modifier un texte dans un Shape [Résolu]

Signaler

CerberusPau

Messages postés: 377
Date d'inscription: lundi 3 avril 2006
Statut: Membre
Dernière intervention: 22 août 2018

- 7 nov. 2010 à 16:37
jordane45

Messages postés: 27610
Date d'inscription: mercredi 22 octobre 2003
Statut: Modérateur
Dernière intervention: 19 février 2020

- 10 nov. 2010 à 18:46

Bonjour à tous,

Qulqu'un sait-il comment on peut modifier un texte dans un Shape enVBA ?

Les codes suivants ne fonctionnent pas :

ActiveSheet.Shapes(1).Select
ActiveSheet.Shapes(1).Text = "Texte"
  'Ou encore
ActiveSheet.Shapes(1).TextFrame.Characters.Text = "Texte"

Je crois qu'il existe une possibilité en passant par un ChartObject :

ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.Shapes(1).TextFrame.Characters.Text = "Texte"

Mais je ne sais pas comment faire exactement ...

Merci de votre aide

Cordialement
Rataxes64

Afficher la suite

A voir également:

Shape basic
Un shape - Meilleures réponses
Activesheet.shapes - Meilleures réponses
Visual Basic / VB.NET : Affichage de shape en fonctions d'une variable - CodeS SourceS - Guide
Visual Basic / VB.NET : Graphisme(dao) de vb6 vers vb.net (controles line, shape et gérer vis - Guide
Visual Basic / VB.NET : Shape spots line lazer effet de lumiere pour les nuls - CodeS SourceS - Guide
Visual Basic / VB.NET : Déplacement d'un objet shape dans feuille excel - CodeS SourceS - Guide
Visual Basic / VB.NET : Mouvement / déplacement d'objet (shapes,images) - CodeS SourceS - Guide

1 réponse

Répondre Posez votre question

jordane45 · Accepted Answer · 2010-11-10T18:46:18+0100

Bonjour,
en passant par l'enregistreur de macro j'ai obtenu ceci:

    ActiveSheet.Shapes("Oval 3").Select
    Selection.Characters.Text = "ceci est le nouveau texte"
    With Selection.Characters(Start:=1, Length:=26).Font
        .Name = "Calibri"
        .FontStyle = "Normal"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 1
    End With
    Range("H18").Select
    ActiveSheet.Shapes("Oval 3").Select
    ActiveSheet.Shapes("Oval 3").Select
    Selection.Characters.Text = "texte modifié"
    With Selection.Characters(Start:=1, Length:=13).Font
        .Name = "Calibri"
        .FontStyle = "Normal"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 1
    End With

en espérant que cela pourra t'aider.

Cordialement,
Jordane,
______________________________________________________
Règles du forum à lire avant de poster une question : ICI

Votre réponse