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.
PJ said: Apologies, Eskimo—I credited Myron for your script when it was actually your reply to him.
Apologies, Eskimo—I credited Myron for your script when it was actually your reply to him.
Hey, no harm, no foul - and thanks for noticing!
Myron did have a significant hand in my participation, too. He invited me to the thread, described the problem, and gave me the code he had already written to use as a jumping-off point.
The way the form handles thread makes it easy for things to get confusing.
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.