Dessiner un regtangle sous Excel 2007

C

Compte Supprimé 979

Guest

• 21 Avril 2012

• #2

Re : Dessiner un regtangle sous Excel 2007

Bonsoir Apt

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

Il suffit apparemment de changer

Code:

.AutoSize = msoAutoSizeShapeToFitText

A+

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 21 Avril 2012

• #3

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

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 22 Avril 2012

• #4

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 :

Code:

.AutoSize = msoAutoSizeShapeToFitText

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 22 Avril 2012

• #5

Re : Dessiner un regtangle sous Excel 2007

Re,

Alors il faut que tu changes également celle-ci

Code:

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

en

Code:

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

A+

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 22 Avril 2012

• #6

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

 

Vote positif 0 Vote négatif

Misange

XLDnaute Barbatruc

• 22 Avril 2012

• #7

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.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 22 Avril 2012

• #8

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 !

 

Dernière édition: 22 Avril 2012

Vote positif 0 Vote négatif

Misange

XLDnaute Barbatruc

• 22 Avril 2012

• #9

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é...

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 27 Avril 2012

• #10

Re : Dessiner un regtangle sous Excel 2007

Bonsoir Misange, mapomme,

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

 

Vote positif 0 Vote négatif

Misange

XLDnaute Barbatruc

• 27 Avril 2012

• #11

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.

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 28 Avril 2012

• #12

Re : Dessiner un regtangle sous Excel 2007

Misange à dit:

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

Cliquez pour agrandir...

Un exemple en PJ.

 

Pièces jointes

• regtangle.xlsx

  9.3 KB · Affichages: 56

Vote positif 0 Vote négatif

Misange

XLDnaute Barbatruc

• 28 Avril 2012

• #13

Re : Dessiner un regtangle sous Excel 2007

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

Code:

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

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 28 Avril 2012

• #14

Re : Dessiner un regtangle sous Excel 2007

Bonjour Misange,

une erreur sur cette ligne :

Code:

.BackColor.Brightness = 0

 

Pièces jointes

• regtangle.xls

  45 KB · Affichages: 53

Vote positif 0 Vote négatif

Misange

XLDnaute Barbatruc

• 28 Avril 2012

• #15

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

 

Vote positif 0 Vote négatif