Error "438" Object doesn't support this property or method - Problems from Pc To Mac

[LithDeus]

hello, i'm an Italian User, i hope that you can help me, and that my english let you understand me.
So I'm not an espert user of Excel, i needed a Macro for do a "simply" thing :

I have a code in A1 (for example MK123) and i have a pictures in B1 (named pictur005),
and i have this for many lines ( maybe 1000 or more).
I need to extract all this photos in a folder on my desktop named "IMM DA VBA", but i need that this pictures have the name of the near cell. So for example I need that the photo named "pictur005" (in b1) , has been extract from the document Excel and download in my folder "IMM DA VBA" but named "MK123"(a1) and not "pictur005".
So very kind people have helped me in a italian forum, and one of them has created a Macro for this :

Sub saveImmages()
  Dim fd, Cartella As String, Img As Chart
  Dim sh As Worksheet, LR As Long, i As Long

  Set fd = Application.FileDialog(msoFileDialogFolderPicker)
   
  With fd
  .Title = "Sfoglia cartelle"
  .AllowMultiSelect = False
  .InitialView = msoFileDialogViewDetails
  .Show
  Cartella = .SelectedItems(1) / MacintoshHD / Utente / Assistenza / Scrivenia / IMMDAVBA
  End With

Set Img = Charts.Add
Set sh = Worksheets(Foglio1.Name)
sh.Activate
LR = sh.Cells(Rows.Count, 1).End(xlUp).Row
   
  For i = 1 To LR
  sh.Shapes(i).CopyPicture
  With Img
  .Paste
  .Export Filename:=Cartella & "/" & sh.Range("a" & i) & ".jpg"
  End With
  Next
   
  Application.DisplayAlerts = False
  Workbooks(1).Charts.Delete
  Application.DisplayAlerts = True

End Sub

But i have Mac with Excel 2011 and the person that has created the Macro has a PC.
With Pc the macro is working but with Mac is not working at all, and Excell show me this error : Error "438" Object doesn't support this property or method .
How can I do for resolve it?
I really need it for work, i have always 2000 / 3000 pictures in file excel that i have to extract and rename... can you help me?
I let you a example file for let you understand better (without macro) :
h t tp : / / dropcanvas.com/x99uo
Thank you very much :
Lith!

 

[LithDeus]

hello, nobody can Halp Me?

 

[Marc L]

Hi,

just see if the method exists for the object in MAC VBA Help …​