Gestion des textes dans une Shape

[Griffin]

Bonjour,

J'avais un code qui marchait très bien sous excel 2003, mais ma boite nous a tous passé sous 2007, et plus rien ne marche...

Ce sont des codes qui affichent des shapes (des rectangles tout ce qu'il y a de plus basiques) et modifient certains mots à l'intérieur pour les afficher en gras.

Soit, par exemple :

Worksheets(1).Shapes(1).Select
Selection.Characters(Start:=deb, Length:=lon).Font.FontStyle = "Gras"

Ca ne marche pas du tout.

D'autre part, impossible de trouver la méthode pour centrer le texte dans cette shapes.

merci de votre aide !!
🙁

 

[Pierrot93]

Re : Gestion des textes dans une Shape

Bonjour,

essaye ce code ok chez moi sous 2007 :

Dim s As Shape, deb, lon
Set s = Feuil1.Shapes(1)
deb = 1: lon = 3
With s.TextFrame
    .Characters(Start:=deb, Length:=lon).Font.Bold = True
    .HorizontalAlignment = xlHAlignCenter
End With

bonne journée
@+