Powerpoint vullen met excel data?

[shidan]

Beste,

wij wensen een powerpoint af te spelen met bezetting van zalen
(in bijlage een voorbeeld dat manueel werd ingevuld)

de zaalbezetting wordt bijgehouden in een excel file en telkens aangepast
(voorbeeld ook in bijlage)

de bedoeling is dat de power point automatisch zou worden bijgewerkt.
- in de hoofding komt de groep die geboekt heeft.
- eronder de uren die zij de zaal wensen te gebruiken.
-wij streven naar max. twee groepen per slide.

is dit doenbaar met excel en powerpoint?

wie kan mij de oplossing geven?

alvast met dank,

shidan







Bekijk bijlage bezetting_zalen.zip

 

[wampier]

Ja het is doenbaar. Je kunt een knop in Excel maken die een nieuwe powerpoint genereert aan de hand van de tabel.

Om het exact te krijgen zoals je het nu hebt is echter wel redelijk wat werk. Ik heb een eerste aanzet gegeven over hoe het kan:

EXCEL macro:

Sub pp_maken()

Set myPP = CreateObject("PowerPoint.Application")
myPP.Visible = True

Set myPPN = myPP.Presentations.Add(msoTrue)
Set PPN_slide = myPPN.Slides.Add(1, 2)
PPN_slide.Shapes(1).TextFrame.TextRange.Font.Name = "arial"
PPN_slide.Shapes(1).TextFrame.TextRange.Text = "Zaal 1"

PPN_slide.Shapes(2).TextFrame.AutoSize = 1
PPN_slide.Shapes(2).TextFrame.TextRange.ParagraphFormat.Bullet.Visible = False
PPN_slide.Shapes(2).TextFrame.TextRange.Font.Name = "arial"
PPN_slide.Shapes(2).TextFrame.TextRange.Font.Size = 24

PPN_slide.Shapes(2).TextFrame.TextRange.Text = "Groep 1" + Chr(13) + "08:00 - 12:00"
PPN_slide.Shapes(2).TextFrame.TextRange.Lines(1).Font.Bold = True
PPN_slide.Shapes(2).TextFrame.TextRange.Lines(2).ParagraphFormat.Alignment = 2

End Sub

Deze items moeten verder aangepast en ingevoegd worden aan de hand van de excel informatie.