Presentation..

[Gareth Brown]

Hi all, I have to do a presentation which includes showing 30 odd graphs (each with a few thousand rows of data - 15MB all up with no formulas!) so the workbook is a little unwieldy (hard to find the sheet tabs)... I'll be using a digi projector so printing isn't a go.

Does anyone have a VBA that copies all the chart sheets into a .ppt?
Any other suggestions?

 

[Swamp Thing]

Depending on the nature of the data, you may want to look at a database approach. You could display a single sheet with an external data query, and use different query parameters to pull in the data sets one by one.
Again, it all depends on how your data can be organized - please post back with details?

 

[Gareth Brown]

sorry mate, i'm actually just after the best way to show a series of excel generated graphs.

 

[Ekim]

Gareth,

Check out this link:

http://groups.google.com/groups?q=e...rpoint&ie=ISO-8859-1&hl=en&btnG=Google+Search

The link also has a link to the microsoft.public.charting newsgroup.

The "trick" seems to be writing the macro in PowerPoint. Here's one macro (written in PowerPoint VBA) from the microsoft.public.excel.programming NG.

Apparently, the macro launches Excel, opens the workbook with the charts, inserts new slides into the presentation, and copies the xl-charts into them.


Sub AddChartSlides()

Dim ActP As Presentation
Dim NewSlide As Slide

Dim oXL As Excel.Application
Dim Sht1 As Excel.Worksheet
Dim WB1 As Excel.Workbook

Set ActP = ActivePresentation

Set oXL = New Excel.Application

Set WB1 = oXL.Workbooks.Open("E:DokumenterPPChartExample.xls")
Set Sht1 = WB1.Sheets("Ark1") ' your sheet name here

ActiveWindow.ViewType = ppViewSlideSorter

For Each shp In Sht1.Shapes

Set NewSlide = ActP.Slides.Add(ActP.Slides.Count + 1, _
ppLayoutBlank)
NewSlide.Select

ActiveWindow.ViewType = ppViewSlide

shp.Copy

ActiveWindow.View.Paste

With ActiveWindow.Selection.ShapeRange
.Left = 54
.Top = 255.875
.Width = 612
.Height = 124.25
End With

ActiveWindow.ViewType = ppViewSlideSorter

Next

WB1.Close False
oXL.Quit

End Sub


Good luck.

Regards,

Mike