This is an old revision of the document!
HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\PowerPoint\Options
> ExportBitmapResolution
(DWORD) > resolution in DPI
(Decimal), e.g. 300
ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Font.Name = "+mn-lt"