Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Kонвертация Power Point в Pdf - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Power Point » Kонвертация Power Point в Pdf
Kонвертация Power Point в Pdf
Slym1349 Дата: Среда, 24.07.2019, 11:48 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Господа, добрый день! :)
Большое спасибо за помощь в предыдущем вопросе (вставка слайдов), но нужна Ваша помощь в новом нюансе.

По работе требуется сохранить презентацию в PDF, макрос запускается из Excel и выглядит вот так:

[vba]
Код
Sub Operrisks_in_Pdf()

Dim objPP As Object
Dim objPPFile As Object


Set objPP = CreateObject("PowerPoint.Application")
objPP.Visible = True
  
Path = "  "
  
Set objPPFile = objPP.Presentations.Open("D:\путь к файлу\" имя презентации.pptm")           

Application.EnableEvents = False

objPP.Run "имя презентации.pptm!Daily.InPdf"                    

Application.EnableEvents = True

'objPPFile.Close

Set objPPFile = Nothing
Set objPP = Nothing

End Sub
[/vba]

В самой презентации макрос выглядит вот так:

[vba]
Код
Sub Operrisks_In_Pdf()

ActivePresentation.ExportAsFixedFormat ActivePresentation.Path & "\"имя презентации".pdf", ppFixedFormatTypePDF, ppFixedFormatIntentPrint

End Sub
[/vba]

Макрос на вкладке проектов в Power Point также называется Daily

Скопировал оба макроса из другого более масштабного макроса к другой презентации (где также вставлялись ссылки, менялись даты и т.д.) и поменял имя и путь.

1) Подскажите пожалуйста где ошибка?
2) И Возможно ли делать конвертацию файла .pptx прописав весь макрос на конвертацию в Excel? Такой вариант был бы предпочтительнее.
 
Ответить
СообщениеГоспода, добрый день! :)
Большое спасибо за помощь в предыдущем вопросе (вставка слайдов), но нужна Ваша помощь в новом нюансе.

По работе требуется сохранить презентацию в PDF, макрос запускается из Excel и выглядит вот так:

[vba]
Код
Sub Operrisks_in_Pdf()

Dim objPP As Object
Dim objPPFile As Object


Set objPP = CreateObject("PowerPoint.Application")
objPP.Visible = True
  
Path = "  "
  
Set objPPFile = objPP.Presentations.Open("D:\путь к файлу\" имя презентации.pptm")           

Application.EnableEvents = False

objPP.Run "имя презентации.pptm!Daily.InPdf"                    

Application.EnableEvents = True

'objPPFile.Close

Set objPPFile = Nothing
Set objPP = Nothing

End Sub
[/vba]

В самой презентации макрос выглядит вот так:

[vba]
Код
Sub Operrisks_In_Pdf()

ActivePresentation.ExportAsFixedFormat ActivePresentation.Path & "\"имя презентации".pdf", ppFixedFormatTypePDF, ppFixedFormatIntentPrint

End Sub
[/vba]

Макрос на вкладке проектов в Power Point также называется Daily

Скопировал оба макроса из другого более масштабного макроса к другой презентации (где также вставлялись ссылки, менялись даты и т.д.) и поменял имя и путь.

1) Подскажите пожалуйста где ошибка?
2) И Возможно ли делать конвертацию файла .pptx прописав весь макрос на конвертацию в Excel? Такой вариант был бы предпочтительнее.

Автор - Slym1349
Дата добавления - 24.07.2019 в 11:48
bmv98rus Дата: Четверг, 25.07.2019, 00:15 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4099
Репутация: 766 ±
Замечаний: 0% ±

Excel 2013/2016
Подскажите пожалуйста где ошибка?

Это
[vba]
Код
objPP.Run "имя презентации.pptm!Daily.InPdf"
[/vba]
на это
[vba]
Код
objPP.Run "имя презентации.pptm!Operrisks_In_Pdf"
[/vba]

должно же имя макроса совпадать.
2) такое ощущение, что есть проблемы с этим, у меня не получилось.

получилось так
[vba]
Код
objPPFile.SaveAs strPath, 32, True
[/vba]


Замечательный Временно просто медведь , процентов на 20.

Сообщение отредактировал bmv98rus - Четверг, 25.07.2019, 07:55
 
Ответить
Сообщение
Подскажите пожалуйста где ошибка?

Это
[vba]
Код
objPP.Run "имя презентации.pptm!Daily.InPdf"
[/vba]
на это
[vba]
Код
objPP.Run "имя презентации.pptm!Operrisks_In_Pdf"
[/vba]

должно же имя макроса совпадать.
2) такое ощущение, что есть проблемы с этим, у меня не получилось.

получилось так
[vba]
Код
objPPFile.SaveAs strPath, 32, True
[/vba]

Автор - bmv98rus
Дата добавления - 25.07.2019 в 00:15
krosav4ig Дата: Четверг, 25.07.2019, 08:10 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 2346
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
у меня получилось только с ранним связыванием

[vba]
Код
Sub test()
    On Error Resume Next
    ThisWorkbook.VBProject.References.AddFromFile Application.Path & "\MSPPT.OLB"
    On Error GoTo 0
    Dim pp As New PowerPoint.Application
    With pp.Presentations.Open(Environ("userprofile") & "\Documents\Презентация1.pptx")
        .ExportAsFixedFormat .Path & "\test.pdf", 2&, 2&
        .Close
    End With
    If pp.Presentations.Count = 0 Then pp.Quit
    Set pp = Nothing
End Sub
[/vba]


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеу меня получилось только с ранним связыванием

[vba]
Код
Sub test()
    On Error Resume Next
    ThisWorkbook.VBProject.References.AddFromFile Application.Path & "\MSPPT.OLB"
    On Error GoTo 0
    Dim pp As New PowerPoint.Application
    With pp.Presentations.Open(Environ("userprofile") & "\Documents\Презентация1.pptx")
        .ExportAsFixedFormat .Path & "\test.pdf", 2&, 2&
        .Close
    End With
    If pp.Presentations.Count = 0 Then pp.Quit
    Set pp = Nothing
End Sub
[/vba]

Автор - krosav4ig
Дата добавления - 25.07.2019 в 08:10
bmv98rus Дата: Четверг, 25.07.2019, 09:18 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4099
Репутация: 766 ±
Замечаний: 0% ±

Excel 2013/2016
только с ранним связыванием

не подумал об этом, да и не макрушник медведь :-) .
Я и это и это смотрел. все тоже, а несовпадение типов.


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщение
только с ранним связыванием

не подумал об этом, да и не макрушник медведь :-) .
Я и это и это смотрел. все тоже, а несовпадение типов.

Автор - bmv98rus
Дата добавления - 25.07.2019 в 09:18
krosav4ig Дата: Четверг, 25.07.2019, 12:05 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 2346
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
а все потому, что Excel зачем-то пытался выполнить свой ExportAsFixedFormat


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеа все потому, что Excel зачем-то пытался выполнить свой ExportAsFixedFormat

Автор - krosav4ig
Дата добавления - 25.07.2019 в 12:05
Slym1349 Дата: Четверг, 25.07.2019, 15:05 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
bmv98rus, krosav4ig, спасибо!

krosav4ig, я правильно понял что Вы написали макрос как раз на дистанционную конвертацию .pptx из Excel?

Я так понял что да и ввел код в Excel следующим образом:

[vba]
Код
Sub Operrisks_in_Pdf()

On Error Resume Next
    ThisWorkbook.VBProject.References.AddFromFile Application.Path & "\MSPPT.OLB"
    On Error GoTo 0
    Dim pp As New PowerPoint.Application
    With pp.Presentations.Open(stpr4566 & "D:\путь к файлу\" имя презентации.pptx")
        .ExportAsFixedFormat .Path & "\имя презентации.pdf", 2&, 2&
        .Close
    End With
    If pp.Presentations.Count = 0 Then pp.Quit
    Set pp = Nothing
End Sub
[/vba]

stpr4566 - мое сетевое имя, работаем в компании через сервер

При запуске выделяет синим следующий фрагмент:

[vba]
Код
pp As New PowerPoint.Application
[/vba]

и выдает ошибку:

Compile error:
User defined type not defined

Подскажите пожалуйста - корректно ли заменил переменные и как решить ошибку?
 
Ответить
Сообщениеbmv98rus, krosav4ig, спасибо!

krosav4ig, я правильно понял что Вы написали макрос как раз на дистанционную конвертацию .pptx из Excel?

Я так понял что да и ввел код в Excel следующим образом:

[vba]
Код
Sub Operrisks_in_Pdf()

On Error Resume Next
    ThisWorkbook.VBProject.References.AddFromFile Application.Path & "\MSPPT.OLB"
    On Error GoTo 0
    Dim pp As New PowerPoint.Application
    With pp.Presentations.Open(stpr4566 & "D:\путь к файлу\" имя презентации.pptx")
        .ExportAsFixedFormat .Path & "\имя презентации.pdf", 2&, 2&
        .Close
    End With
    If pp.Presentations.Count = 0 Then pp.Quit
    Set pp = Nothing
End Sub
[/vba]

stpr4566 - мое сетевое имя, работаем в компании через сервер

При запуске выделяет синим следующий фрагмент:

[vba]
Код
pp As New PowerPoint.Application
[/vba]

и выдает ошибку:

Compile error:
User defined type not defined

Подскажите пожалуйста - корректно ли заменил переменные и как решить ошибку?

Автор - Slym1349
Дата добавления - 25.07.2019 в 15:05
bmv98rus Дата: Четверг, 25.07.2019, 15:18 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4099
Репутация: 766 ±
Замечаний: 0% ±

Excel 2013/2016
Open(stpr4566 & "D:

точно не правильно. какой путь вы видите в проводнике, тот и должен быть указан.

и выдает ошибку:

Библиотека не подключена
Эта строка [vba]
Код
ThisWorkbook.VBProject.References.AddFromFile Application.Path & "\MSPPT.OLB"
[/vba]
не срабатывает и требует подключения руками через tools/References
Но то скользкий путь, при разных версиях офисов.


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщение
Open(stpr4566 & "D:

точно не правильно. какой путь вы видите в проводнике, тот и должен быть указан.

и выдает ошибку:

Библиотека не подключена
Эта строка [vba]
Код
ThisWorkbook.VBProject.References.AddFromFile Application.Path & "\MSPPT.OLB"
[/vba]
не срабатывает и требует подключения руками через tools/References
Но то скользкий путь, при разных версиях офисов.

Автор - bmv98rus
Дата добавления - 25.07.2019 в 15:18
krosav4ig Дата: Четверг, 25.07.2019, 21:09 | Сообщение № 8
Группа: Друзья
Ранг: Старожил
Сообщений: 2346
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
а чтоб срабатывала надо в окне книги Alt+ЕМБ и поставить галочку Предоставлять доступ...


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеа чтоб срабатывала надо в окне книги Alt+ЕМБ и поставить галочку Предоставлять доступ...

Автор - krosav4ig
Дата добавления - 25.07.2019 в 21:09
Slym1349 Дата: Пятница, 26.07.2019, 12:06 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
bmv98rus, насчет пути в проводнике понял, спасибо.

господа, а в русскоязычном 2016 Excel куда запрятали - tools/References?

Файл - параметры - надстройки? (но там power point не нашел) %)

Также нагуглил аналогичные темы, но все ответы сводились к "ищите на других вкладках" и "установите приложение открывающее старое меню под новым"

"Alt+ЕМБ " - а что такое ЕМБ? :)
 
Ответить
Сообщениеbmv98rus, насчет пути в проводнике понял, спасибо.

господа, а в русскоязычном 2016 Excel куда запрятали - tools/References?

Файл - параметры - надстройки? (но там power point не нашел) %)

Также нагуглил аналогичные темы, но все ответы сводились к "ищите на других вкладках" и "установите приложение открывающее старое меню под новым"

"Alt+ЕМБ " - а что такое ЕМБ? :)

Автор - Slym1349
Дата добавления - 26.07.2019 в 12:06
bmv98rus Дата: Пятница, 26.07.2019, 14:59 | Сообщение № 10
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4099
Репутация: 766 ±
Замечаний: 0% ±

Excel 2013/2016
tools/References - это в редакторе VBA (alt+f11) и там или все как выше написал или инструменты и первая строка, наверно ( возможно ссылки)

ЕМБ - последовательность нажатия кнопок, но вот у меня в ENG варианте оно другое :-)


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщениеtools/References - это в редакторе VBA (alt+f11) и там или все как выше написал или инструменты и первая строка, наверно ( возможно ссылки)

ЕМБ - последовательность нажатия кнопок, но вот у меня в ENG варианте оно другое :-)

Автор - bmv98rus
Дата добавления - 26.07.2019 в 14:59
Slym1349 Дата: Понедельник, 29.07.2019, 14:06 | Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
bmv98rus, понял, спасибо.

в редакторе VBA во вкладке Tools опция References неактивна.
при нажатии кнопок Alt+ЕМБ

при последовательном нажатии - открывает только вкладку Tools (я так понимаю дальше должен идти в References но они неактивны)
при одновременном нажатии - открывает View - Toolbar

Если я Вам еще не надоел подскажите пожалуйста - можно ли как то активировать References?.. :)
 
Ответить
Сообщениеbmv98rus, понял, спасибо.

в редакторе VBA во вкладке Tools опция References неактивна.
при нажатии кнопок Alt+ЕМБ

при последовательном нажатии - открывает только вкладку Tools (я так понимаю дальше должен идти в References но они неактивны)
при одновременном нажатии - открывает View - Toolbar

Если я Вам еще не надоел подскажите пожалуйста - можно ли как то активировать References?.. :)

Автор - Slym1349
Дата добавления - 29.07.2019 в 14:06
bmv98rus Дата: Понедельник, 29.07.2019, 14:25 | Сообщение № 12
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4099
Репутация: 766 ±
Замечаний: 0% ±

Excel 2013/2016
в редакторе VBA во вкладке Tools опция References неактивна.
в этот момент макрос точно не выполняется? Если выполняется и стоит например на ошибке, то остановить выполнение и попробовать еще раз.


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщение
в редакторе VBA во вкладке Tools опция References неактивна.
в этот момент макрос точно не выполняется? Если выполняется и стоит например на ошибке, то остановить выполнение и попробовать еще раз.

Автор - bmv98rus
Дата добавления - 29.07.2019 в 14:25
Slym1349 Дата: Вторник, 30.07.2019, 15:57 | Сообщение № 13
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
krosav4ig, bmv98rus, огромное Вам спасибо - получилось!

references была неактивна т.к. был запущен макрос и после подключения в нем Microsft Power Point Object Library - удаленно из Excel конвертировало .pptx в .pdf

:D :D :D
 
Ответить
Сообщениеkrosav4ig, bmv98rus, огромное Вам спасибо - получилось!

references была неактивна т.к. был запущен макрос и после подключения в нем Microsft Power Point Object Library - удаленно из Excel конвертировало .pptx в .pdf

:D :D :D

Автор - Slym1349
Дата добавления - 30.07.2019 в 15:57
krosav4ig Дата: Понедельник, 05.08.2019, 20:23 | Сообщение № 14
Группа: Друзья
Ранг: Старожил
Сообщений: 2346
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
при нажатии кнопок Alt+ЕМБ
при последовательном нажатии - открывает только вкладку Tools
надо было жать не в окне vbe, а в окне книги
но вот у меня в ENG варианте оно другое

ну да, в ENG это Alt+TMS


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
при нажатии кнопок Alt+ЕМБ
при последовательном нажатии - открывает только вкладку Tools
надо было жать не в окне vbe, а в окне книги
но вот у меня в ENG варианте оно другое

ну да, в ENG это Alt+TMS

Автор - krosav4ig
Дата добавления - 05.08.2019 в 20:23
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Power Point » Kонвертация Power Point в Pdf
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!