Re : Insérer Image Dans Cellule EXCEL pour Mac
Bonjour à tous,
Je suis aller chercher une fonction sur le site de Jacques Boisgontier... C'est une solution qui me conviendrait bien, mais elle ne fonctionne pas... Cela bug dès la première ligne...
Je travaille sur Mac, Excel 2004.
Merci de votre aide,
FBplan
Function AfficheImage(NomImage, rep)
Application.Volatile
Set adr = Application.Caller
temp = NomImage & "_" & adr.Address
Existe = False
For Each s In adr.Worksheet.Shapes
If s.Name = temp Then Existe = True
Next s
If Not Existe Then
For Each k In adr.Worksheet.Shapes
p = InStr(k.Name, "_")
If Mid(k.Name, p + 1) = adr.Address Then k.Delete
Next k
If Dir(rep & NomImage) = "" Then
AfficheImage = "Inconnu"
Else
Set myShell = CreateObject("Shell.Application")
Set myFolder = myShell.Namespace(rep)
Set myFile = myFolder.Items.Item(NomImage)
Taille = myFolder.GetDetailsOf(myFile, 26)
H = Val(Split(Taille, "x")(1))
L = Val(Split(Taille, "x")(0))
Ech = adr.Height / H
H = H * Ech
L = L * Ech
Set s = adr.Worksheet.Shapes.AddPicture(rep & NomImage, True, True, adr.Left, adr.Top, L, H)
s.Name = NomImage & "_" & adr.Address
AfficheImage = "ok"
End If
End If
End Function