Макрос, формирующий презентацию

[Kate_C]

доброго времени суток!

существует следующая задача:
необходимо в MS Excel написать макрос, который бы формировал презентацию в Power Point.

Исходные данные: таблица в Excel, содержащая перечень разделов, каждому разделу соответствует своя мини-презентация (от одного до нескольких слайдов).

Необходимо нажатием кнопки в Excel сформировать презентацию в Power Point, варьируя перечень разделов путем удаления ненужных разделов из таблицы Excel или путем проставления какой-либо метки около необходимых разделов.

Такое возможно?

П.С.: возможна реализация любым другим образом. основная цель - имея, набор мини-презентаций, иметь возможность оперативно формировать итоговые презентации разной комплектации

заранее спасибо всем, кто откликнется!

[motorway]

Вот пример кода из Веба:

Sub Create_PowerPoint_Slides()

On Error GoTo Err_PPT

Dim oPA As PowerPoint.Application
Dim oPP As PowerPoint.Presentation
Dim oPS As PowerPoint.Slide
Dim oShape As PowerPoint.Shape
Dim sPath As String
Dim sFile As String
Dim i1 As Integer


sPath = "C:\"
sFile = "MyfileName"

Set oPA = New PowerPoint.Application
oPA.Visible = msoTrue

Set oPP = oPA.Presentations.Add(msoTrue)

For i1 = 1 To 10
oPP.Slides.Add 1, ppLayoutBlank
Next i1

Set oPS = oPP.Slides(1)
Set oShape = oPS.Shapes.AddTextbox(msoTextOrientationHorizontal, 140#, 246#, 400#, 36#)
oShape.TextFrame.WordWrap = msoTrue

oShape.TextFrame.TextRange.Text = "Comments For File : " & sFile
With oShape
.Fill.Visible = msoTrue
.Fill.Solid
.Fill.ForeColor.RGB = RGB(204, 255, 255)
.Line.Weight = 3#
.Line.Visible = msoTrue
.Line.ForeColor.SchemeColor = ppForeground
.Line.BackColor.RGB = RGB(255, 255, 255)
End With


oPP.SaveAs sPath & sFile & ".ppt"
oPP.Close
oPA.Quit

If Not oPS Is Nothing Then Set oPS = Nothing
If Not oPP Is Nothing Then Set oPP = Nothing
If Not oPA Is Nothing Then Set oPA = Nothing



Err_PPT:
If Err <> 0 Then
MsgBox Err.Description
Err.Clear
Resume Next
End If

End Sub

Теоретически можно вставить всё что угодно из Эксела и подставлять это в слайды.
P.S. Нужно подключить Microsoft PowerPoint 14.0 Object Library в Tools -> References