Texte dans une forme libre

Version imprimable

Bonjour,

Je cherche à insérer du texte dans une forme créée en dessin vectoriel, donc pas ne forme standard. Pour cela Excel ne le permet pas en utilisation normale (lorsque l'on clique sur la forme, "Modifier le texte" est grisé et non accessible.

Voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub TexteDansFormeLibre() Sheets("Visuel").Activate ActiveSheet.Shapes("F_3800").Select Selection.Characters.Text = "toto" With Selection.Font .Name = "Arial" .FontStyle = "Normal" .Size = 10 .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With End Sub
La macro bloque sur Selection.Characters.Text

Merci par avance pour votre aide.

Eric

05/12/2015, 08h25
Theze

Bonjour,

Ce n'est à priori pas possible. Quand tu fait clic droit sur la forme, le menu "Modifier le texte" n'existe pas contrairement au formes prédéfinies.
05/12/2015, 18h27
boisgontierjacques

1 pièce(s) jointe(s)

Bonsoir,

Une fonction perso qui crée un shape avec le texte.

Code:

=AfficheTexte($D$13:$D$16;D13;"coucou";40;30)

Boisgontier

1 pièce(s) jointe(s)

Salut,

Pièce jointe 194458
'Modifier le texte' apparait dans le menu contextuel.

Code:

1
2
3
4
5
6
7
8
9
10
 
' 4 Solutions.
Sub Macro1()
    With Me.Shapes.Range(Array("Rounded Rectangle 1"))(1)
        .TextFrame2.TextRange.Characters.Text = "dfghjk5"
        .OLEFormat.Object.Text = "dfghjk5"
        .DrawingObject.Text = "dfghjk5"
        .DrawingObject.Characters.Text = "dfghjk5"
    End With
End Sub

Si c'est un problème de version, OLEFormat.Object.Text devrait fonctionner je pense.