Couleur d'encadrement d'un shapes

[Eric D]

Bonjour à toutes et tous,

Après cette journée de farniente, je vous soumet un nouveau peti soucis. Dans mon code j'essaye d'affecter une coueur à la bordure de mon shapes mais sans effet.
With ActiveSheet.Shapes("ferm").Fill
.BorderStyle = 1
.BorderColor = RGB(74, 160, 70)
End With
Je doit certainement mal m'y prendre.
Merci our votre aide et bonne soirée.
Eri D

 

[skoobi]

Re : Couleur d'encadrement d'un shapes

Bonsoir,

de quel genre de Shape parles-tu?
commentaire, bouton, image ... ?

 

[Staple1600]

Re : Couleur d'encadrement d'un shapes

Bonsoir

edit: pour correspondre à la couleur de ton choix

Sub test_2()
ActiveSheet.Shapes("ferm").Line.ForeColor.RGB = RGB(74, 160, 70)
End Sub

A tester

Sub test()
'merci à Skoobi
ActiveSheet.Shapes("ferm").Line.ForeColor.SchemeColor = 10
End Sub

 

[Eric D]

Re : Couleur d'encadrement d'un shapes

Bonsoir skoobi, Staple1600,Le frorum

Le Shapes("ferm") est une image skoobi.

J'ai essayé ton code Staple1600, mais cela ne change rien.
Cela devrait me déssiner une ligne et nonme faire la bordure.

Merci pour votre aide et à bientôt.
Eric D

 

[skoobi]

Re : Couleur d'encadrement d'un shapes

Re,

et ceci?

ActiveSheet.Shapes("ferm").Line.ForeColor.SchemeColor = 11

Edit: arfff, le 2eme code de Staple1600 (que je salut au passage ) avait juste un guillemet en trop....

 

[Eric D]

Re : Couleur d'encadrement d'un shapes

Bonjour à toutes et tous,

Je ne pense pas que ce soit une histoire de BorderColor en fait car, lorsque je clicke dessus, le tour de mon image qui était 'pâle' se fond avec l'image du dessous. Comment faire pour que cela soit de la sorte dès le début. j'ai essayé de mettre les 'mêmes" macros mais sans effets du style: Range("A1").Value = Range("A1").Value, mais sans résultat.
Merci de votre aide.
EricD

 

[skoobi]

Re : Couleur d'encadrement d'un shapes

Re,

le tour de mon image qui était 'pâle' se fond avec l'image du dessous. Comment faire pour que cela soit de la sorte dès le début.

 

[Staple1600]

Re : Couleur d'encadrement d'un shapes

Bonjour

Pour reprendre l'intérrogation de Skoobi (bonjour et merci pour le ")

Tu parles d'une forme automatique (Shape)
ou d'une image (Picture) ?

 

[Eric D]

Re : Couleur d'encadrement d'un shapes

Bonjour skoobi,

Je m'explique,enfin j'essaye. J'ai une image d'un certain vert située quelquepart sur ma feuille. Sur cette image, j'ai une autre image qui représente qqc sur le fameux fond vert. Mais même si je règle correctement le BorderColor, on voit la démarcation de cette image plus claire. Quand je clicke sur cette image, la démarcatio disparait, et on a l'impression d'avoir qu'une seule image. Donc j'ai fait ce que j'ai dis plus haut, pour voir qulle instruction me résolvait le Pb,mais sans sunnès. Ce doit etre une histoire Focus ou de select, mais je n'y arrive pas. Voilà j'espère avoir été plus explicite.
Merci pour ton aide.
Eric D

 

[Staple1600]

Re : Couleur d'encadrement d'un shapes

Re


Quelle est ta version d'Excel?

 

[Eric D]

Re : Couleur d'encadrement d'un shapes

Bonjour Staple1600,

Ma version d'Excel est 2003.

Eric D

 

[Staple1600]

Re : Couleur d'encadrement d'un shapes

Re

Ok merci


Suis sous Excel 2000

et XL2000 ne supporte pas cette syntaxe

With ActiveSheet.Shapes("ferm").Fill
.BorderStyle = 1
.BorderColor = RGB(74, 160, 70)
End With

Désolé, je passe la main aux posseseurs d'XL2003 et supérieur

 

[Pierrot93]

Re : Couleur d'encadrement d'un shapes

Bonsoir Eric, Staple, Skoobi

essaye avec le code ci dessous (pour une image) :

Sheets("Feuil1").Shapes(1).OLEFormat.Object.Border.Color = RGB(74, 160, 70)

bonne soirée
@+

 

[Eric D]

Re : Couleur d'encadrement d'un shapes

Bonsoir Pierrot93, Staple1600, le forum,

J'ai essayé d'expliquer clairement à Staple1600 que je ne pensais pas a un Pb de BorderColor en fait mais plus a une histoire de Focus 'sans oublier le S' ou autre de ce style a voir.
Merci pour votre aide.
Eric D