Ajouter bordure à une image sans passer par select

Résolu/Fermé

TonyLucky - 18 févr. 2017 à 17:45
TonyLucky - 22 févr. 2017 à 09:39

Bonjour à tous,

Je voudrais ajouter une bordure à une image sans passer par select, car l'image se trouve dans un classeur ouvert, mais différent du classeur actif (Je travaille sur plusieurs classeurs en même temps et je trouve plus simple et plus rapide d'actualiser les données sans activer les classeurs les uns après les autres).

J'ai essayé le code suivant, qui ne plante pas, mais qui ne fait rien. "WB_2" est le classeur contenant l'image à traiter.

maphoto = .Cells(Trouve2, Trouve3 ).Value

With WB_2.Worksheets(OldS).Shapes(maphoto)
.ShapeRange.Line.Weight = 4.5
.ShapeRange.Line.Visible = msoTrue
.ShapeRange.Line.DashStyle = msoLineSolid
.ShapeRange.Line.Style = msoLineThickThin
.ShapeRange.Line.ForeColor.RGB = RGB(Coul_R, Coul_G, Coul_B)
End With

Si quelqu'un à une idée, je suis preneur.
Par avance, merci

Tony

A voir également:

Ajouter bordure à une image sans passer par select
Passer de windows 7 à windows 10 - Guide
Google recherche par image - Guide
Passer de qwerty a azerty - Guide
Image iso - Guide
Ajouter une adresse mail - Guide

2 réponses

Réponse 1 / 2

Utilisateur anonyme
21 févr. 2017 à 16:39

Bonjour, essaie le code suivant :

maphoto = .Cells(Trouve2, Trouve3 ).Value

With WB_2.Worksheets(OldS).Shapes(maphoto).line
    .Weight = 4.5
    .Visible = msoTrue
    .DashStyle = msoLineSolid
    .Style = msoLineThickThin
    .ForeColor.RGB = RGB(Coul_R, Coul_G, Coul_B)
End With

J'ai supprimé la notion de ShapeRange (qui ne sert que si l'on passe par une sélection) et chez moi, ça à l'air de marcher.

Réponse 2 / 2

TonyLucky
22 févr. 2017 à 09:39

Bonjour,

Merci beaucoup d'avoir regardé ma question.
Ta solution fonctionne parfaitement et cela me donne des pistes pour manipuler les images sans les sélectionner. Ma prochaine étape va être de copier l'image sans la sélectionner pour la déplacer dans un fichier tiers.
Bonne journée,

Tony

Discussions similaires

Retrouver l'image originale après avoir fait des modifications ?

Sur la plage...

"Reboot and Select proper Boot Device"

Dechiffrer une image caché

Discussions similaires

Newsletters