Presentation..

Gareth Brown

Board Regular
Joined
Jul 29, 2002
Messages
52
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?
 

Excel Facts

Why does 9 mean SUM in SUBTOTAL?
It is because Sum is the 9th alphabetically in Average, Count, CountA, Max, Min, Product, StDev.S, StDev.P, Sum, VAR.S, VAR.P.

Swamp Thing

Active Member
Joined
Aug 16, 2002
Messages
313
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

Board Regular
Joined
Jul 29, 2002
Messages
52
sorry mate, i'm actually just after the best way to show a series of excel generated graphs.
 

Ekim

Well-known Member
Joined
Jun 30, 2002
Messages
1,416
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
 

Forum statistics

Threads
1,147,845
Messages
5,743,513
Members
423,801
Latest member
paulj4177

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top