inserer un objet word art..

[danny]

j'ai créé un objet word art par "macro assisté" avec la souris pour éditer un texte court.

Je copie le code dans ma macro vb pour afficher cet objet avant impression sur ma feuille.... il s'affiche mais impossible de le manipuler par " Selection "

voila le code ' Selection ' correspond en fait a l'objet word art mais VB ne le reconnait pas)

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#



comment manipuler l'objet que je selectionne a la souris .?

merci

 

[STéphane]

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

 

[moi]

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

?????

 

[STéphane]

ça marche très bien chez moi !

 

[moi]

ne sreait ce pas un probleme de bibliotheque???

 

[STéphane]

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

 

[moi]

J'ai résolu le probleme ...

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

Vas comprendre "Charles" !

Merci pour ton aide.