Ajouter bordure à une image sans passer par select Résolu/Fermé

Question

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
Configuration: Windows / Firefox 51.0

Utilisateur anonyme · Answer

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.

TonyLucky · Answer

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

Ajouter bordure à une image sans passer par select

2 réponses

Discussions similaires