VBA insertion image

Question

Bonsoir,

Avec cette VBA, j'arrive à insérer mes images en feuille "Photo" dans la feuille "Bahrein" colonne C

Je n'arrive pas à les mettre à la taille dans le cadre. Je coince.

D'avance, merci pour ce p'tit coup de pouce

Private Sub Worksheet_Activate()
Dim c As Range, sh As Shape

Application.ScreenUpdating = False
For Each sh In Feuil9.Shapes
sh.Delete
Next
For Each sh In Feuil27.Shapes
If sh.TopLeftCell.Column = 7 Or sh.TopLeftCell.Column = 8 Then
If Not IsError(Application.Match(Feuil27.Range("F" & sh.TopLeftCell.Row), Feuil9.Range("B5:B32"), 0)) Then
sh.Copy
Feuil9.Range("C3").Offset(Application.Match(Feuil27.Range("F" & sh.TopLeftCell.Row), Feuil9.Range("B5:B32"), 0), 0).PasteSpecial
End If
End If
Next
For Each sh In Feuil9.Shapes
sh.Height = sh.TopLeftCell.Height
Next
Application.ScreenUpdating = True
End Sub

https://www.transfernow.net/dl/20220313my6A3emp/2PSn7xbl

Answer 1

Cette réponse a été automatiquement traduite. Par conséquent, il peut y avoir des erreurs grammaticales ou des formulations étranges.

Bonjour Jean-MauriceGUERET

Bienvenue dans Microsoft Community.

Je m’excuse pour le désagrément que vous avez rencontré.

Selon la catégorie Excel que vous avez publiée, nous savons que votre problème est « Insérer des images dans Excel via du code VBA, mais ne peut pas les amener à la taille dans le cadre ». Si ma compréhension est erronée, n’hésitez pas à me corriger. Je peux comprendre ce que vous ressentez, le code VBA est très pratique, mais peut être ennuyeux lorsque les choses tournent mal en même temps

Désolé, je ne suis pas un expert en code de macro, si vous avez besoin d’aide supplémentaire, vous pouvez essayer de demander aux experts en **** IT Pro docs.microsoft.com et obtenir une meilleure aide. Vous pouvez cliquer sur Q&R pour poster votre question.

Merci de votre patience et de votre compréhension!

Chandy | Spécialiste du support de la communauté Microsoft

---

* Méfiez-vous des escrocs qui publient de faux numéros de support ici.

* Si votre problème n’est pas résolu, vous pouvez répondre à nouveau au message et nous continuerons à vous fournir une assistance technique.

* Veuillez marquer et voter cette réponse si elle vous aide, car elle profitera à plus de membres de la communauté qui lisent ici.