Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.09.2017, 13:19   #1
asale
Форумчанин
 
Регистрация: 09.01.2007
Сообщений: 108
По умолчанию помогите пожалуйста PowerPoint и VBA

Добрый день.
Есть слайд
Задача менять ФИО и сохранять в pdf
Нужен именно макрос, т.к. нужно обработать более 500 ФИО
Список ФИО есть в Excel

Строку сохранения в pdf написал.
как организовать цикл, чтобы брал из excel или еще откуда и вставлял в LABEL1.

p.s. это первый опыт написания макросма в powerpoint

For i = 1 To 100

Label1.Caption = ?????

ActivePresentation.ExportAsFixedFor mat ActivePresentation.Path & "\" & ActivePresentation.Name & ".pdf", ppFixedFormatTypePDF, ppFixedFormatIntentPrint

Next i


End Sub
asale вне форума Ответить с цитированием
Старый 18.09.2017, 13:31   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Цитата:
Сообщение от asale Посмотреть сообщение
как организовать цикл, чтобы брал из excel или еще откуда и вставлял в LABEL1.
хинт
Поставьте себе вопросы и найдите ответы:
1) как в PP поключить excel и открыть книгу с диска
2) как перебрать в открытой книге ячейки столбца
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 18.09.2017, 13:55   #3
asale
Форумчанин
 
Регистрация: 09.01.2007
Сообщений: 108
По умолчанию

Цитата:
Сообщение от Aleksandr H. Посмотреть сообщение
хинт
Поставьте себе вопросы и найдите ответы:
1) как в PP поключить excel и открыть книгу с диска
в вставил excel как объект.
Не подойдет так?
asale вне форума Ответить с цитированием
Старый 18.09.2017, 14:35   #4
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Пробуйте.
в references подключить Microsoft Excel
Код:
Sub ReadExcel()
    Dim appExcel As Object
    Dim oBook As Workbook
    Dim oSheet As Worksheet
    Dim i As Integer, j As Integer
    Dim cellValue As String
    Set appExcel = CreateObject("Excel.Application")
    Dim file As String
    file = ActivePresentation.Path & "\Names.xlsx"
    If Dir(file, 16) = "" Then Exit Sub
    Set oBook = appExcel.Workbooks.Open(file)
    Set oSheet = oBook.Sheets(1)
    With oSheet
        i = .Cells(.Rows.Count, 1).End(xlUp).Row
        For j = 1 To i
            label1.Caption = .Cells(j, 1)
            ActivePresentation.ExportAsFixedFormat ActivePresentation.Path & "\" & ActivePresentation.Name & ".pdf", ppFixedFormatTypePDF, ppFixedFormatIntentPrint
        Next j
    End With
    oBook.Close
    Set oSheet = Nothing
    Set oBook = Nothing
    Set appExcel = Nothing
End Sub
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 18.09.2017, 15:00   #5
asale
Форумчанин
 
Регистрация: 09.01.2007
Сообщений: 108
По умолчанию

спасибо Вам огромное за код.
А что может быть за ошибка Method exportasfixedformat of object_Presentatiom failed
на строке
Код:
ActivePresentation.ExportAsFixedFormat ActivePresentation.Path & "\" & ActivePresentation.Name & ".pdf", ppFixedFormatTypePDF, ppFixedFormatIntentPrint

Последний раз редактировалось asale; 18.09.2017 в 15:17.
asale вне форума Ответить с цитированием
Старый 18.09.2017, 15:22   #6
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Как ошибка? ведь...
Цитата:
Сообщение от asale Посмотреть сообщение
Строку сохранения в pdf написал.
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.

Последний раз редактировалось Aleksandr H.; 18.09.2017 в 15:24.
Aleksandr H. вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
VBA для powerpoint. Событие смена слайда. Golden_RUS Microsoft Office Excel 1 27.05.2017 17:31
Excel / PowerPoint / VBA - данные сводной таблицы Hoochara Microsoft Office Excel 2 10.07.2013 13:19
PowerPoint VBA как в демонстрации добавить ктопку ПЕЧАТЬ РЕЗУЛЬТАТА Виталий М Microsoft Office Excel 2 13.02.2013 12:46
помогите пожалуйста PowerPoint и VBA CATerpillar Microsoft Office Excel 42 09.04.2009 14:30