Dessiner un regtangle sous Excel 2007

[apt]

Bonsoir à tous,

Avec le code dans le fichier en PJ, il marchait très bien dans Excel 2003.

En passant à Excel 2007, ça dessine une ligne au lieu d'un regangle.

Merci de voir et de corriger le erreurs.

 

[Compte Supprimé 979]

Re : Dessiner un regtangle sous Excel 2007

Bonsoir Apt

Ahhh c'est différence entre 2003 et 20xx 🙄

Il suffit apparemment de changer

.AutoSize = msoAutoSizeShapeToFitText

A+

 

[R@chid]

Re : Dessiner un regtangle sous Excel 2007

Bonsoir apt,
Bonsoir Bruno,
@ apt : peut etre tu n'as pas besoin qu'on te dit que c'est pas conseille de creer 2 discussions pour le meme sujet.
Amicalement

 

[apt]

Re : Dessiner un regtangle sous Excel 2007

Bonsoir Bruno, Rachid

C'est ma très mauvaise et vieille connexion qui me fait défaut (via Modem standard de 150k).

Bruno :> ça n'a rien changé cette ligne :

.AutoSize = msoAutoSizeShapeToFitText

 

[Compte Supprimé 979]

Re : Dessiner un regtangle sous Excel 2007

Re,

Alors il faut que tu changes également celle-ci

Set Fenetre = ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, Gauche, Haut, 1, 1)

en

Set Fenetre = ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, Gauche, Haut, 100, 50)

A+

 

[apt]

Re : Dessiner un regtangle sous Excel 2007

Maintenant Le rectangle est visible.

Reste, comment définir le trait du contour, l'alignement à gauche et le dégradé des deux couleurs

 

[Misange]

Re : Dessiner un regtangle sous Excel 2007

Bonjour
utilise l'enregistreur de macro... il t'aidera grandement à récupérer le code et à l'adapter.

 

[mapomme]

Re : Dessiner un regtangle sous Excel 2007

Bonjour Misange et à tous,

Je crois me rappeler lorsque j'utilisais Excel 2007 que l'enregistreur de macro pour la partie image et graphique ne fonctionnait pas ou pratiquement pas. Voir le lien. C'est revenu avec 2010 !

 

[Misange]

Re : Dessiner un regtangle sous Excel 2007

Tuas raison MaPomme, c'est vrai que dans 2007 il manque beaucoup de choses et je n'avais pas tilté...

 

[apt]

Re : Dessiner un regtangle sous Excel 2007

Bonsoir Misange, mapomme,

Effectivement j'ai essayé d'utiliser l'enregistreur macro, mais ça ne donne rien.

 

[Misange]

Re : Dessiner un regtangle sous Excel 2007

fais un classeur avec ta forme de départ, ta forme d'arrivée et on te donnera le code.

 

[apt]

Re : Dessiner un regtangle sous Excel 2007

fais un classeur avec ta forme de départ, ta forme d'arrivée et on te donnera le code.

Un exemple en PJ.

 

[Misange]

Re : Dessiner un regtangle sous Excel 2007

Voilà le code généré par l'enregistreur.

Sub Macro1()
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .Weight = 0.75
    End With
    Selection.ShapeRange.TextFrame2.TextRange.ParagraphFormat.Alignment = _
        msoAlignLeft
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent1
        .ForeColor.TintAndShade = -0.6999999881
        .ForeColor.Brightness = 0
        .BackColor.ObjectThemeColor = msoThemeColorAccent1
        .BackColor.TintAndShade = 0
        .BackColor.Brightness = 0
        .TwoColorGradient msoGradientHorizontal, 1
        .RotateWithObject = msoTrue
    End With
    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 20).Font.Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0
        .Transparency = 0
        .Solid
    End With
    Selection.ShapeRange.Fill.Visible = msoTrue

End Sub

 

[apt]

Re : Dessiner un regtangle sous Excel 2007

Bonjour Misange,

une erreur sur cette ligne :

.BackColor.Brightness = 0

 

[Misange]

Re : Dessiner un regtangle sous Excel 2007

Désolée mais je n'ai fait que te donner le code de l'enregistreur de macro de 2010. Je n'ai pas 2007 sous la main pour tester, je ne peux guère t'aider davantage