I'm not hopeful, but is there by chance a way to export layers separately? i.e. if a PP project has say 10 layers am I able to export them as individual images? I know I can do it one at a time with the "export selected only" setting, but I'm looking for a way to do it all in one shot.
After sleeping on it, I think that I would prefer to use more of a "KISS principle" approach to the location for the new files, and simply put them in the same place as the original.
Sub save_layers_as_files()Dim index_counter As LongDim layer_name As StringDim original_filepath_plus_filename As StringDim saveas_filepath_plus_filename As StringDim d As Documentoriginal_filepath_plus_filename = ActiveDocument.FilePath & ActiveDocument.FileNameFor index_counter = 1 To ActiveDocument.Layers.Count 'get layer name layer_name = ActiveDocument.Layers(index_counter).Name 'cook up new path + filename saveas_filepath_plus_filename = original_filepath_plus_filename & "_" & layer_name & ".PNG" 'copy this layer ActiveDocument.Layers.Item(index_counter).Copy 'new document from clipboard Set d = Application.CreateDocumentFromClipboard 'saveas this document d.SaveAs(saveas_filepath_plus_filename, cdrPNG).Finish 'close this document ActiveDocument.CloseNext index_counterEnd Sub
I just tried it and got an error message:
Then a new instance of PP opened up automatically with the bottom-most layer from the original project only.