Kонвертация Power Point в Pdf

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

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? Такой вариант был бы предпочтительнее.

Ответить

bmv98rus

Дата: Четверг, 25.07.2019, 00:15 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4114

Репутация: 769 ±

Замечаний: 0% ±

Excel 2013/2016

Цитата Slym1349, 24.07.2019 в 11:48, в сообщении № 1 ()

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

Это
[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

Ответить

krosav4ig

Дата: Четверг, 25.07.2019, 08:10 | Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 997 ±

Замечаний: 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

Ответить

bmv98rus

Дата: Четверг, 25.07.2019, 09:18 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4114

Репутация: 769 ±

Замечаний: 0% ±

Excel 2013/2016

Цитата krosav4ig, 25.07.2019 в 08:10, в сообщении № 3 ()

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

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

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

Ответить

krosav4ig

Дата: Четверг, 25.07.2019, 12:05 | Сообщение № 5

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

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

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

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

Дата: Четверг, 25.07.2019, 15:18 | Сообщение № 7

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4114

Репутация: 769 ±

Замечаний: 0% ±

Excel 2013/2016

Цитата Slym1349, 25.07.2019 в 15:05, в сообщении № 6 ()

Open(stpr4566 & "D:

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

Цитата Slym1349, 25.07.2019 в 15:05, в сообщении № 6 ()

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

Библиотека не подключена
Эта строка [vba]

Код

ThisWorkbook.VBProject.References.AddFromFile Application.Path & "\MSPPT.OLB"

[/vba]
не срабатывает и требует подключения руками через tools/References
Но то скользкий путь, при разных версиях офисов.

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

Ответить

krosav4ig

Дата: Четверг, 25.07.2019, 21:09 | Сообщение № 8

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

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

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

Slym1349

Дата: Пятница, 26.07.2019, 12:06 | Сообщение № 9

Группа: Пользователи

Ранг: Новичок

Сообщений: 18

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

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

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

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

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

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

Ответить

bmv98rus

Дата: Пятница, 26.07.2019, 14:59 | Сообщение № 10

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4114

Репутация: 769 ±

Замечаний: 0% ±

Excel 2013/2016

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

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

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

Ответить

Slym1349

Дата: Понедельник, 29.07.2019, 14:06 | Сообщение № 11

Группа: Пользователи

Ранг: Новичок

Сообщений: 18

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

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

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

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

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

Ответить

bmv98rus

Дата: Понедельник, 29.07.2019, 14:25 | Сообщение № 12

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4114

Репутация: 769 ±

Замечаний: 0% ±

Excel 2013/2016

Цитата Slym1349, 29.07.2019 в 14:06, в сообщении № 11 ()

в редакторе VBA во вкладке Tools опция References неактивна.

в этот момент макрос точно не выполняется? Если выполняется и стоит например на ошибке, то остановить выполнение и попробовать еще раз.

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

Ответить

Slym1349

Дата: Вторник, 30.07.2019, 15:57 | Сообщение № 13

Группа: Пользователи

Ранг: Новичок

Сообщений: 18

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

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

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