suppression du cadre autour d'une image

Bonjour,

je charge dans mon classeur excel des images en utilisant les fonctions : INDIRECT(RECHERCHEV...)

le chargement dynamique des photos en fonction d'un argument est parfait, mais un cadre noir pas esthétique du tout semble être ajouté par ces fonctions autour des images car le chargement des mêmes photos directement par "insérer image" ne comporte pas ce cadre.
J'ai tenté pas mal d'option excel sans succès, à part clic droit sur l'image et "style" pour choisir un cadre qui se superpose correctement au cadre inesthétique de l'image, mais j'ai constaté que le fichier grossissait de plus de 1Mo par image...ce qui me fait un classeur de 70Mo au moins et ralenti considérablement l'utilisation d'Excel
y-a-t-il une chance de parvenir à retirer le cadre par une macro VBA ?
merci

Salut, il faudrait basculer en VBA : Utiliser la librairie Windows Image Acquisition en VBA

Merci beaucoup je vais essayer de me débrouiller avec cette doc que je n'avais pas trouvé.

J'aimerai avoir un conseil, j'ai une macro (ci-dessous que j'ai mis un temps fou à faire, c'est ma première macro!) qui me donne satisfaction (même si elle n'est surement pas top)
Cette macro sauve mon classeur puis supprime les lignes ET image dans des lignes inutiles.

Ai-je intérêt à profiter de la boucle existante pour intervenir sur les images (en rognant peut être) ou ajouter une seconde boucle après la première pour le faire.
Autre interrogation : une autre personne va utiliser le fichier, cette personne doit-elle également charger la bibliothèque WIA ?

Merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Sub supprlineimprimable() Dim i As Integer jour = Day(Now) mois = Month(Now) an = Year(Now) heure = Hour(Now) minutes = Minute(Now) Application.ScreenUpdating = False Application.Calculation = xlCalculationManual ' ' Copie du classeur sous la forme : nom_classeur_courant + Date + Heure ' ActiveWorkbook.SaveCopyAs Filename:=Replace(ActiveWorkbook.FullName, ".xlsm", " " & jour) & "-" & mois & "-" & an & " " & heure & "h" & minutes & ".xlsm" ' ' Suppression des lignes inutiles ' For i = 1200 To 1 Step -1 If Cells(i, 40).Value = "X" Then For Each shap In ActiveSheet.Shapes If shap.TopLeftCell.Row = i Then shap.Delete Next Cells(i, 40).EntireRow.Delete End If Next i Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

---