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
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:
