Once selected click on the Choose button. When it runs, it'll open a Finder window asking you to select the folder containing your pictures.PowerPoint > Services, Finder > Services, Safari > Services, TextEdit > Services, etc) and select the service you just created.

You can do this by going to the Services list within any Application menu (e.g. Now you should be able to run the service from any application, not just from within PowerPoint.

Save the service using a meaningful name (e.g. set properties of slide 1 of active presentation to Tell application 'Finder' to set picFolder to every file in folder (choose folder) Now, replace the (* Your script goes here *) with the following script 1: tell application 'Finder' to set frontmost to true

This will add the Run AppleScript window on the right.

In the second column containing the long list, find 'Run AppleScript' and double-click on it.

Ensure the In drop-down list is showing 'Any application'.

In the top right hand of the window that appears, ensure that 'No input' is selected from the Service receives drop-down list.

Select Service and click Choose ( Note: in macOS Mojave and above, select the Quick Action option).

Launch Automator (usually found within your Applications folder).

To do this you will need to use Automator to create a service that runs an Apple Script. I would forget your VBA based macro from PowerPoint for Windows and instead create a macOS service that you can user whenever you want, including directly from PowerPoint. Set oPic = (FileName:=.SelectedItems(i), _ Filters.Add 'Images', '*.gif *.jpg *.jpeg *.bmp *.tif *.png' Title = 'Select image files and click OK'

Set fd = Application.FileDialog(msoFileDialogFilePicker) Many thanks! 'This is the Windows code - won't work on Mac I have an old macro that does this on Windows-but Mac doesn't support Application.FileDialogue PowerPoint on the Mac doesn't have the Insert Photo Album functionality which allows you to select images and new PPT created with one image on each slide.

What is the powerpoint for mac