You can do this from Apple > System Preferences > Keyboard - just select the Shortcuts tab, pick Services from the lefthand side and choose the Service you created from the righthand side.ġ. You can also choose to create a keyboard shortcut to automatically run the Service for you.PowerPoint does not need to be already open when you run the service, but it will run quicker if it is.PowerPoint will then open a new blank presentation and insert all of the pictures in the selected folder into their own slide. 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.

Best powerpoint for mac