Modifier un texte dans un ShapeRésolu

Question

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

jordane45 · Answer

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

1 réponse

Votre réponse

Discussions similaires