Power Point -> Power Point
Сообщений: 4
• Страница 1 из 1
- Vitaly1
- Брехман
- Сообщения: 1578
- Зарегистрирован: 30.12.2002 (Пн) 16:35
- Откуда: Russia, Mosсow
Power Point -> Power Point
Vitaly1 » 20.02.2004 (Пт) 15:43
Как программно внутри презентации Pоwer Point вставить слайд из другой презентаци?
- Vitaly1
- Брехман
- Сообщения: 1578
- Зарегистрирован: 30.12.2002 (Пн) 16:35
- Откуда: Russia, Mosсow
Vitaly1 » 21.02.2004 (Сб) 15:02
Не знал я,не ведал я, что в приложениях задача может решаться в лоб:
- Код: Выделить всё
Sub InsertSlied(NameFilePresentation, NSlied)
Application.CommandBars.ActiveMenuBar.Controls(4).Controls(7).Execute
SendKeys Chr(9) + " "
SendKeys NameFilePresentation + Chr(13)
SendKeys Chr(9) + Chr(9) + Chr(9) + Chr(9) + Chr(9)
For i = 1 To NSlied - 1
SendKeys "{RIGHT}"
Next i
SendKeys " " + Chr(13) + Chr(27)
End Sub
- GSerg
- Шаман
- Сообщения: 14286
- Зарегистрирован: 14.12.2002 (Сб) 5:25
- Откуда: Магадан
GSerg » 22.02.2004 (Вс) 7:54
- Код: Выделить всё
activepresentation.slides.insertfromfile "file name", inserttoposition, startslidenumber, endslidenumber
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас
Сообщений: 4
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: Google-бот и гости: 104