Modifier un texte dans un Shape [Résolu]

Question

Posez votre question Signaler

Modifier un texte dans un Shape [Résolu]

CerberusPau

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

- 7 nov. 2010 à 16:37 - Dernière réponse : jordane45

Messages postés: 24068
Date d'inscription: mercredi 22 octobre 2003
Statut: Contributeur
Dernière intervention: 18 janvier 2019

- 10 nov. 2010 à 18:46

Visual Basic 6 Posez votre question Signaler

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:

Activesheet.shapes
Un shape - Meilleures réponses
Unshape - Meilleures réponses
Modifier le texte d'un lien au passage de la souris ! - Codes sources - Javascript (Effets)
Modifier taille d'un cercle (shape Oval) ✓ - Forum - Visual Basic 6
Format texte/nombre dans shape ✓ - Forum - VB.NET
Modifier un texte dans plusieur fichier different. ✓ - Forum - Visual Basic 6
Modifier un texte ds le bloc note ✓ - Forum - Visual Basic 6

Votre réponse

Répondre au sujet

1 réponse

Votre réponse

Répondre au sujet

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

Modifier un texte dans un Shape [Résolu]

Votre réponse

Votre réponse

Votre réponse

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !