Jednoduché řešení, např úpravu registrů jsem nikde nedohledal. Probíral jsem to s kolegou a on byl tak hodný a napsal mi rovnou makro. Má to ale háček. Makro totiž nelze uložit pro všechny prezentace, ale pouze do aktuálně otevřené. Čili pokud to máte dělat pokaždé s jinou prezentací, je potřeba do ní makro opětovně uložit.

Makro by potom vypadalo takto :

Sub UlozitVyber()
'Ulozi vybrane objekty jako jeden obrazek
'Pokud neni nic vybrano, tak se neprovede samozrejme nic
  On Error Resume Next
  ActiveWindow.Selection.ShapeRange.Export "c:\pp\Obrazek_" & VBA.Format(VBA.Now(), "YYMMDDHHMMSS") & ".jpg", ppShapeFormatJPG
End Sub

Jelikož si nejsem jisý, že se makro neponičí odmazáním nepovolených znaků, přikládám v příloze makro.txt obsah tohoto příspevku, ať můžete kopírovat.