Grâce à cette instruction :
Set trajet = ActiveSheet.Shapes.AddPolyline(xy),
j'obtiens une forme libre composée d'une succession de traits.
Je voudrais que ces traits soient rouges. Je peux le faire en
sélectionnant la forme et ...
Mais je voudrais obtenir cette couleur par VBA.
Et comme l'enregistreur de macros 2007 ne veut rien
savoir quand on tripote des formes, je fais appel à vos
encyclopédiques connaissances pour me dépatouiller
en attendant que MicroMachin améliore son kâlisse
de tabarnak d'enregistreur de macros :-)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Bonjour Garnote,
Tu peux y ajouter d'autres caractéristiques au contour...
'------------------------------------ Sub Macro2() Dim Sh As Shape Set Sh = Feuil1.Shapes("Ellipse 7") With Sh.Line .Visible = msoTrue .ForeColor.RGB = RGB(254, 125, 156) .DashStyle = msoLineSolid End With End Sub '------------------------------------
"garnote" a écrit dans le message de groupe de discussion :
Bonjour,
Grâce à cette instruction : Set trajet = ActiveSheet.Shapes.AddPolyline(xy), j'obtiens une forme libre composée d'une succession de traits. Je voudrais que ces traits soient rouges. Je peux le faire en sélectionnant la forme et ... Mais je voudrais obtenir cette couleur par VBA. Et comme l'enregistreur de macros 2007 ne veut rien savoir quand on tripote des formes, je fais appel à vos encyclopédiques connaissances pour me dépatouiller en attendant que MicroMachin améliore son kâlisse de tabarnak d'enregistreur de macros :-)
Serge
Bonjour Garnote,
Tu peux y ajouter d'autres caractéristiques au contour...
'------------------------------------
Sub Macro2()
Dim Sh As Shape
Set Sh = Feuil1.Shapes("Ellipse 7")
With Sh.Line
.Visible = msoTrue
.ForeColor.RGB = RGB(254, 125, 156)
.DashStyle = msoLineSolid
End With
End Sub
'------------------------------------
"garnote" <garnote3@videotron.ca> a écrit dans le message de groupe de discussion :
uf6r83pFKHA.4280@TK2MSFTNGP05.phx.gbl...
Bonjour,
Grâce à cette instruction :
Set trajet = ActiveSheet.Shapes.AddPolyline(xy),
j'obtiens une forme libre composée d'une succession de traits.
Je voudrais que ces traits soient rouges. Je peux le faire en
sélectionnant la forme et ...
Mais je voudrais obtenir cette couleur par VBA.
Et comme l'enregistreur de macros 2007 ne veut rien
savoir quand on tripote des formes, je fais appel à vos
encyclopédiques connaissances pour me dépatouiller
en attendant que MicroMachin améliore son kâlisse
de tabarnak d'enregistreur de macros :-)
Tu peux y ajouter d'autres caractéristiques au contour...
'------------------------------------ Sub Macro2() Dim Sh As Shape Set Sh = Feuil1.Shapes("Ellipse 7") With Sh.Line .Visible = msoTrue .ForeColor.RGB = RGB(254, 125, 156) .DashStyle = msoLineSolid End With End Sub '------------------------------------
"garnote" a écrit dans le message de groupe de discussion :
Bonjour,
Grâce à cette instruction : Set trajet = ActiveSheet.Shapes.AddPolyline(xy), j'obtiens une forme libre composée d'une succession de traits. Je voudrais que ces traits soient rouges. Je peux le faire en sélectionnant la forme et ... Mais je voudrais obtenir cette couleur par VBA. Et comme l'enregistreur de macros 2007 ne veut rien savoir quand on tripote des formes, je fais appel à vos encyclopédiques connaissances pour me dépatouiller en attendant que MicroMachin améliore son kâlisse de tabarnak d'enregistreur de macros :-)
Serge
garnote
Salut Denis,
Merci pour la piste Line. Finalement, j'ai opté pour : With ActiveSheet.Shapes.AddPolyline(xy).Line .ForeColor.RGB = RGB(255, 0, 0) .Weight = 2.5 End With
Serge
"MichDenis" a écrit dans le message de news:
Bonjour Garnote,
Tu peux y ajouter d'autres caractéristiques au contour...
'------------------------------------ Sub Macro2() Dim Sh As Shape Set Sh = Feuil1.Shapes("Ellipse 7") With Sh.Line .Visible = msoTrue .ForeColor.RGB = RGB(254, 125, 156) .DashStyle = msoLineSolid End With End Sub '------------------------------------
"garnote" a écrit dans le message de groupe de discussion :
Bonjour,
Grâce à cette instruction : Set trajet = ActiveSheet.Shapes.AddPolyline(xy), j'obtiens une forme libre composée d'une succession de traits. Je voudrais que ces traits soient rouges. Je peux le faire en sélectionnant la forme et ... Mais je voudrais obtenir cette couleur par VBA. Et comme l'enregistreur de macros 2007 ne veut rien savoir quand on tripote des formes, je fais appel à vos encyclopédiques connaissances pour me dépatouiller en attendant que MicroMachin améliore son kâlisse de tabarnak d'enregistreur de macros :-)
Serge
Salut Denis,
Merci pour la piste Line.
Finalement, j'ai opté pour :
With ActiveSheet.Shapes.AddPolyline(xy).Line
.ForeColor.RGB = RGB(255, 0, 0)
.Weight = 2.5
End With
Serge
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
u0O5iLqFKHA.3948@TK2MSFTNGP03.phx.gbl...
Bonjour Garnote,
Tu peux y ajouter d'autres caractéristiques au contour...
'------------------------------------
Sub Macro2()
Dim Sh As Shape
Set Sh = Feuil1.Shapes("Ellipse 7")
With Sh.Line
.Visible = msoTrue
.ForeColor.RGB = RGB(254, 125, 156)
.DashStyle = msoLineSolid
End With
End Sub
'------------------------------------
"garnote" <garnote3@videotron.ca> a écrit dans le message de groupe de
discussion :
uf6r83pFKHA.4280@TK2MSFTNGP05.phx.gbl...
Bonjour,
Grâce à cette instruction :
Set trajet = ActiveSheet.Shapes.AddPolyline(xy),
j'obtiens une forme libre composée d'une succession de traits.
Je voudrais que ces traits soient rouges. Je peux le faire en
sélectionnant la forme et ...
Mais je voudrais obtenir cette couleur par VBA.
Et comme l'enregistreur de macros 2007 ne veut rien
savoir quand on tripote des formes, je fais appel à vos
encyclopédiques connaissances pour me dépatouiller
en attendant que MicroMachin améliore son kâlisse
de tabarnak d'enregistreur de macros :-)
Merci pour la piste Line. Finalement, j'ai opté pour : With ActiveSheet.Shapes.AddPolyline(xy).Line .ForeColor.RGB = RGB(255, 0, 0) .Weight = 2.5 End With
Serge
"MichDenis" a écrit dans le message de news:
Bonjour Garnote,
Tu peux y ajouter d'autres caractéristiques au contour...
'------------------------------------ Sub Macro2() Dim Sh As Shape Set Sh = Feuil1.Shapes("Ellipse 7") With Sh.Line .Visible = msoTrue .ForeColor.RGB = RGB(254, 125, 156) .DashStyle = msoLineSolid End With End Sub '------------------------------------
"garnote" a écrit dans le message de groupe de discussion :
Bonjour,
Grâce à cette instruction : Set trajet = ActiveSheet.Shapes.AddPolyline(xy), j'obtiens une forme libre composée d'une succession de traits. Je voudrais que ces traits soient rouges. Je peux le faire en sélectionnant la forme et ... Mais je voudrais obtenir cette couleur par VBA. Et comme l'enregistreur de macros 2007 ne veut rien savoir quand on tripote des formes, je fais appel à vos encyclopédiques connaissances pour me dépatouiller en attendant que MicroMachin améliore son kâlisse de tabarnak d'enregistreur de macros :-)