inserer un objet word art..

bonjour

ton code crée l'objet Word Art nommé " TEST "


il marche très bien, le revoilà complété d'autres instructions

Sub test()
ActiveSheet.Select: Range("A11").Activate
ActiveSheet.Shapes.AddTextEffect(msoTextEffect1, " TEST ", _
"Arial", 14#, msoTrue, msoFalse, 0, 190).Select
Selection.ShapeRange.TextEffect.PresetShape = msoTextEffectShapePlainText
Selection.ShapeRange.IncrementRotation -40#


Selection.ShapeRange.ZOrder msoBringToFront
Selection.ShapeRange.TextEffect.Text = "OLEEE"
Selection.OnAction = "PERSO.XLS!test2"
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 27
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
End Sub



autre instructions qui peuvent t'intéresser

Sub test2()
With ActiveSheet.Shapes(Application.Caller)
MsgBox .Name
If .Type = msoTextEffect Then
MsgBox .TextEffect.Text
Else
'pour les autes objets
'attention plante s'il n'y ajamais eu de texte dans l'objet MsgBox .TextFrame.Characters.Text

End If
End With
End Sub



bye

en reopiant le code que tu m'envois le debeugeur d'arrete sur le premier "Selection"

?????

ça marche très bien chez moi !

ne sreait ce pas un probleme de bibliotheque???

c'est ce que je me suis demandé mais je ne vois pas laquelle pourrait manquer et intervenir ici, peut-être Microsoft Office VBA extensiblity.

Bye
Stéphane



envoie le fichier s'il est pas trop gros

J'ai résolu le probleme ...

Un petit et subtile "on error resume next" et ca passe!!!!

Vas comprendre "Charles" !

Merci pour ton aide.