Сохранить презентацию из экселя

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

Сохранить презентацию из экселя (Макросы/Sub)

Паштет

Дата: Понедельник, 24.02.2025, 12:20 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 165

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

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

Excel 2010

Добрый день!
Делаю каждый месяц презентацию из экселя и рассылаю ее в pdf. Но в связи с вводом корпоративного стиля, столкнулся с проблемой, что шрифты по цвету пляшут, несмотря на внедрение их при сохранении, и градиентная заливка в формах уж больно резкая стала получаться. Решил сделать через сохранение в виде изображений JPG или BMP сделать, а потом залить редактором в pdf, но изображения получаются низкого разрешения, а прав в Windows для внесения изменений в реестр у меня нет, чтобы там внести изменения. Нашел способ вроде через VBA, но ключевая строчка отказывается работать. Что можете посоветовать?
[vba]

Код

Private Sub PDF_Click()
Dim objPPApps As Object, objPPs As Object, ofl, sfl As String
    Set objPPApps = CreateObject("PowerPoint.Application")
     pp = Sheets("1").Cells(12, 2)
    fl = Left(pp, Len(pp) - 4)
    ofl = fl & ".pptx"

    Set objPPs = objPPApps.Presentations.Open(ofl)

sl = objPPApps.ActivePresentation.Slides.Count
For i = 1 To sl
sfl = "Слайд" & i & ".jpg"
objPPApps.ActivePresentation.SlideRange(i).Export sfl, "JPG", 4000, 3000
Next i
End Sub

[/vba]