Komprimer 1.000.000-vis af PPT via VBA og save options embed only used characters... CHALLENGE

Hej,
Vi har verdens tungeste template med embedded fonts til den helt store guldmedalje. (og vi er 6.000+ white color, som sprøjter PPTs ud hver dag)

Samlet set: mange x 100.000 PPTs, som dermed hver er på 10-15+ MB, og nemt op mod 30-40 Mb.

Er der en haj der kan opbygge script/VBA der gør følgende:

Åbner alle PPT i et directory/subdirectories
Undersøger om filen embedder alle fonts (har sat check-mark i:)

Tools>>Save Options >> Checkmark i Embed fonts in the file >> Radiobutton selected: Embed all characters (Best for editing by other peopl)

If radiobutton peger på Embed all characters:
Flyt option til: Embed only characters used in presentation (best for reducing file size)

Save file.

Hvis jeg på denne måde kan traversere 1.000.000 filer og reducere 10 MB per fil, så flytter det jo en lille smule på storage og netværkstrafik, exchange server etc.

Bonus spørgsmål: Kan man overhovedet få lov at eksekvere den slags filer i et datacenter storage - svarer jo lidt til en virus...

Bonus Bonus: Kunne man lave scriptet således at det printer en før/efter log.
Hvis embedded fonts: append i en txt-fil/csv fil: filnavn, filstørrelse før, filstørrelse efter.