excel ->PowerPoint

[supergood]

Приветствую!!! Уважаемые Гуру, подскажите, пожалуйста, возможно ли с помощью одной кнопки перенести таблицы и диаграммы листа в заранее подготовленный шаблон презентации. К примеру, из екселевсокго листа таблицу перенести на первую страницу презентации, а диаграмму на вторую?

[EducatedFool]

возможно ли с помощью одной кнопки перенести таблицы и диаграммы листа в заранее подготовленный шаблон презентации

Да, возможно.

Были бы примеры файлов (Excel + шаблон презентации) - возможно, уже получили бы готовое решение

[supergood]

Добавляю шаблоны. таблицу нужно добавить на первую страницу презентации, диаграмму на вторую

[EducatedFool]

Вот весь код:

Sub test()
    Set p = GetObject(ThisWorkbook.Path & "\Презентация.ppt")
    p.Application.Visible = msoTrue
    [a1:f4].Copy
    p.Slides(1).Select: p.Windows(1).View.Paste
    
    ActiveSheet.Shapes(1).Copy
    p.Slides(2).Select: p.Windows(1).View.Paste

    p.SaveAs ThisWorkbook.Path & "\Презентация_новая.ppt"
End Sub

Смотрите пример (сохранил файлы в формате 2003, ибо у меня не установлен PP 2007)

[supergood]

Спасибо. А возможно таблицу и диаграмму добавить именно в подготовленный шаблон презентации? и возможно ли задать расположение таблицы и диаграммы в презентации, к примеру, в верхней части листа, посредине?

[Mikel23]

тоже интересует расположение на листе.
А так же как выбирать с другого листа Excel?

[The_Prist]

Сообщение от supergood

Спасибо. А возможно таблицу и диаграмму добавить именно в подготовленный шаблон презентации? и возможно ли задать расположение таблицы и диаграммы в презентации, к примеру, в верхней части листа, посредине?

Я Вам здесь отвечал. Вставка данных идет именно в заранее имеющийся слайд презентации. Расположение не меняется.