Dim objPPApp As Object
Set objPPApp = CreateObject("PowerPoint.Application")
objPPApp.Visible = True
objPPApp.Presentations.Open "http://www.b-si.ru/tatarkin-mesto_i_rol_ieh_uro_ran-1_chast.pptx"
Контактная информация
Адрес.
Адрес: 620027, Екатеринбург, улица Пушкина, 10