A voir également:
- EXCEL 2010, rajouter une bordure en VBA
- Liste déroulante excel - Guide
- Formule excel - Guide
- Déplacer une colonne excel - Guide
- Telecharger word 2010 - Télécharger - Traitement de texte
- Mise en forme conditionnelle excel - Guide
1 réponse
pilas31
Messages postés
1823
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
636
Modifié par pilas31 le 29/07/2015 à 12:31
Modifié par pilas31 le 29/07/2015 à 12:31
Bonjour,
Voila une solution qui semble fonctionner :
donc insérer dans Sub InsertAndSizePic
plus simple encore en jouant avec RGB on peut avoir les nuances de gris
A+
Cordialement,
Voila une solution qui semble fonctionner :
...
Set p = ActiveSheet.Pictures.Insert(PicPath)
With p.ShapeRange.Line
.Visible = msoTrue
.Weight = 0.25
.ForeColor.ObjectThemeColor = msoThemeColorBackground1
.ForeColor.Brightness = -0.25
End With
If Target.Cells.Count = 1 Then Set Target = Target.MergeArea
...
donc insérer dans Sub InsertAndSizePic
plus simple encore en jouant avec RGB on peut avoir les nuances de gris
With p.ShapeRange.Line
.Visible = msoTrue
.Weight = 0.25
.ForeColor.RGB = RGB(150, 150, 150)
End With
A+
Cordialement,
29 juil. 2015 à 13:36
Ah si RGB pouvait fonctionner, car cette option est des plus intéressante !
Quoi qu'il en soit, c'est SUPER sympa d'avoir pris le temps, alors M E R C I tout plein !
@+ ... j'espère !