Не могу вставить больше 1 слайда из презентации Power Point

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

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

Не могу вставить больше 1 слайда из презентации Power Point (Макросы/Sub)

Slym1349

Дата: Вторник, 23.07.2019, 13:39 | Сообщение № 1

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

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

Сообщений: 18

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

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

Excel 2016

Господа, добрый день!
Для начала скажу что вопрос касается VBA в Power Point, но поскольку не нашел спец ресурса то пишу в последней надежде здесь.
Есть макрос на вставку в рабочую презентацию из другой презентации слайда

[vba]

Код

    On Error GoTo 0
    On Error Resume Next
    Presentations.Open FileName:="N:\path\"Presentation name.pptx", ReadOnly:=msoFalse
    If Err.Number <> 0 Then
        MsgBox ("не найден слайд")
        Call Shell("explorer.exe" & " " & "N:\path\", vbNormalFocus)
        Err.Clear
    Else
        ActivePresentation.Slides(1).Copy
        With Application.Presentations("Presentation name.pptx")
         .Saved = True
         .Close
        End With
        ActiveWindow.View.Paste
        End If
End Sub

[/vba]

Данный макрос вставляет строго первый слайд.
Если в макросе поменять Slides(1).Copy на Slides(2).Copy - соответственно второй.

Как сделать так чтобы вставлялись оба слайда?
Перепробовал варианты - убирать цифры со скобками, варианты (1,2) (1;2) (1-2) - не помогает, выдает ошибку.

Помогите пожалуйста

Сообщение отредактировал Slym1349 - Вторник, 23.07.2019, 14:59

Ответить

Pelena

Дата: Вторник, 23.07.2019, 14:04 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19409

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

Замечаний: ±

Excel 365 & Mac Excel

Slym1349, оформите код тегами с помощью кнопки # в режиме правки поста

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

bmv98rus

Дата: Вторник, 23.07.2019, 14:15 | Сообщение № 3

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

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

Сообщений: 4120

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

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

Excel 2013/2016

Цитата Slym1349, 23.07.2019 в 13:39, в сообщении № 1 ()

но поскольку не нашел спец ресурса

а этот

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

Ответить

Slym1349

Дата: Вторник, 23.07.2019, 14:43 | Сообщение № 4

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

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

Сообщений: 18

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

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

Excel 2016

Pelena, подскажите пожалуйста - оформить код - это в текст сообщения вносить теги?
И сами теги можно писать с пробелами или вместо пробела нижнее подчеркивание?

bmv98rus, спасибо, посмотрел, но своего вопроса там не нашел.
Тему нужно перенести в тот раздел?