Экспорт диаграмм в PowerPoint

[Wasserfrau]

Привет!
у меня есть задача экспортировать из эксель диаграммы в РР.
Диаграммы находятся 2 страницах книги эксель, их надо разместить на одном слайде РР.
Прошу помощи! Спасибо!

[Volodshan]

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

Привет! у меня есть задача экспортировать из эксель диаграммы в РР...

А какие средства экспорта в вашем Excele?

[Wasserfrau]

я не совсем поняла вопрос. вообще, я планировала это сделать с помощью макроса. или что вы имели в виду??? сорри....

[alyon_ka]

я как то переносила данные из эксель, код прилагаю:

Sub PowerPointPresentation()
Dim pp As Object, prs As Object
Dim ppLBlank As Integer
Dim ppLText As Integer

Set pp = CreateObject("PowerPoint.Application")
Set prs = pp.Presentations.Add
ppLBlank = 12
    prs.slides.Add 1, ppLBlank
i = 1
For Each sh In ActiveWorkbook.Worksheets
    ActiveWorkbook.Activate
    If Left(sh.Name, 6) = "СвТабл" Then
        sh.Activate
        sh.Select
    msg = MsgBox("Добавить эти данные в презентацию?", vbOKCancel, "Вставка данных")
        If msg = vbOK Then
            Set r = Cells(1, 1).CurrentRegion
            ' выделяем диапазон без первой строки
            r.Offset(1, 0).Resize(r.Rows.Count - 1, r.Columns.Count).Select
            Selection.Copy
                pp.Visible = True
                pp.ActiveWindow.View.Paste
                i = i + 1
                pp.ActiveWindow.View.gotoSlide Index:=pp.ActivePresentation.slides.Add(Index:=i, Layout:=ppLBlank).slideIndex
        End If
    End If
Next
If i > 1 Then
pp.ActivePresentation.SlideShowSettings.Run
End If
Set pp = Nothing
End Sub

[Wasserfrau]

alyon_kа,
спасибо большое! сегодня на работе попробую!