Macro doesn't work on Mac

[Ilfalco87]

I would need following macro to work on Mac. Importing images from a folders works perfectly on Windows, but I can't get it work on mac. I would like it to be possible to choose the folder. Thanks in advance!

Sub InsertPictures()

Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
Dim a As Integer
Dim xColIndex As Integer
Dim xRowIndex As Integer


On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = 40
xRowIndex = 14


a = 1




If IsArray(PicList) Then
    For lLoop = LBound(PicList) To UBound(PicList)
        
        Set Rng = Range(Worksheets("Report").Cells(xRowIndex, xColIndex), Worksheets("Report").Cells(xRowIndex + 9, xColIndex + 17))
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        
        If a Mod 2 = 0 Then
            xColIndex = xColIndex - 18
            xRowIndex = xRowIndex + 15
            If a Mod 6 = 0 Then
                xRowIndex = 14
                xColIndex = xColIndex + 38
            End If
        Else
            xColIndex = xColIndex + 18
        End If
               
        a = a + 1
    Next
End If
End Sub

 

[Derek Brown]

You may find the following useful:
Working with Files and Folders (Mac)

 

[Ilfalco87]

I'm not that advanced in vba, so I can't get it to work. Thanks for the tip anyway!

 

[Derek Brown]

Unfortunately, it seems that Microsoft has made it very difficult to develop using VBA on Mac.
I have Office 365 installed on a MacBook and also running in Windows 10 (using Parallels 12 virtual machine) on the MacBook.
The VBE Editor on Mac is inferior to that in Windows and I guess that it would even be difficult for an experienced VBA developer to create that code.