Microsoft 365 Images ne s'affiche pas dans fichier Excel

Tidjyphenom

XLDnaute Nouveau
Bonjour,

Je dispose d'un fichier excel qui contient une liste de produit dont une colonne contenant le lien url vers l'image de chaque produit. J'utilise le code VBA suivant pour transformer ce lien en image affichable dans le tableur. Ca fonctionne bien. Maintenant quand je partage de fichier avec d'autres personnes utilisant excel, les images ne s'affichent pas chez eux. Je souhaite donc pouvoir partager le document avec les images tout en supprimant le lien vers les images. Donc en quelque sort avoir les images en dur. Quelqu'un aurait une idée svp ? Fichier joint ci-dessous

VB:
Sub URLPictureInsert()
Dim Pshp As Shape
Dim xRg As Range
Dim xCol As Long
On Error Resume Next
Application.ScreenUpdating = False
Set Rng = ActiveSheet.Range("D2:D269")
For Each cell In Rng
filenam = cell
ActiveSheet.Pictures.Insert(filenam).Select
Set Pshp = Selection.ShapeRange.Item(1)
If Pshp Is Nothing Then GoTo lab
xCol = cell.Column + 1
Set xRg = Cells(cell.Row, xCol)
With Pshp
.LockAspectRatio = msoFalse
If .Width > xRg.Width Then .Width = xRg.Width * 2 / 3
If .Height > xRg.Height Then .Height = xRg.Height * 2 / 3
.Top = xRg.Top + (xRg.Height - .Height) / 2
.Left = xRg.Left + (xRg.Width - .Width) / 2
End With
lab:
Set Pshp = Nothing
Range("D2").Select
Next
Application.ScreenUpdating = True
End Sub
 
Dernière modification par un modérateur:

Phil69970

XLDnaute Barbatruc
Bonjour @Tidjyphenom

Personne svp ?

Ceci explique peut être cela

1696171833241.png
 

job75

XLDnaute Barbatruc
Bonjour Tidjyphenom, Phil69970,

Chez moi le fichier n'est pas corrompu.

Et la macro crée bien les 268 images "en dur".

Mais par sécurité ajoutez cette ligne au début :
VB:
ActiveSheet.DrawingObjects.Delete 'RAZ
Je ne vois pas ce que je peux faire de plus.

A+
 

Discussions similaires

Réponses
1
Affichages
270
Réponses
0
Affichages
221

Statistiques des forums

Discussions
313 281
Messages
2 096 784
Membres
106 748
dernier inscrit
Abdel93