![]() ![]()
SImageName = sPath & "Slide" & CStr(oSl.SlideID) & "_" & oSh.Name & ".PNG" ' Touch only pictures that haven't yet been touched ' = NO USER-SERVICEABLE PARTS PAST THIS POINTįor Each oSl In ActivePresentation.Slides ' This also serves to "optimize" your file sizes somewhat ' The higher the enlargement factor, the higher the resolution of the converted file ' We enlarge the images before exporting them ' It should always end with a path separator character: ' Exports pictures to PNG, reimports them You can run this several times on the same presentation if you wish it will only export/re-import a given picture one time. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |