Howdy. I have found the easiest way to do that is to use VBA code and put it into Powerpoint as a linked picture. Then you can break the links in PPT, and re-paste into Excel. This reduces the file size considerably. My reason is that here, everything has to be presented in PPT. Note that this copies the range. What I do is select the cells under and around the graph and include that. Actually I put the entire graph in one cell, and use the cell above for title formatting, and the cell below for legend, etc. This allows much greater flexibility for formatting and colors. Of course, you will have to expand the size of the cell, normally I use 60 wide and 150 high. Then when resizing the graph, hold down the OPTION key which forces it to snap to the cell's edge. Also, when selecting the chart, to Format, go to the tab for font and uncheck the box in lower left that says "Auto Scale", and set the font size to whatever you want (8 pt works best). Then I also use no fill and no borders on the graph.
If you want I can post a small sample to look at.
Jon Peltier provided the initial code:
Code:
'=======================================
' Program: RangeToPPTLink
' Description: Copies selected range as a picture, pastes into Powerpoint as linked picture
' Called by: Toolbar button "Rng Link"
' Changes-----------------------------------------------------------
' Date Programmer Change
' Jon Peltier Original
'=======================================
Sub RangeToPPTLink()
' Set a VBE reference to Microsoft PowerPoint Object Library for Office,
' Adapted from http://peltiertech.com/Excel/XL_PPT.html
Dim PPApp As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
Dim PPSlide As PowerPoint.Slide
' Make sure a range is selected
If Not TypeName(Selection) = "Range" Then
MsgBox "Please select a worksheet range and try again.", vbExclamation, _
"No Range Selected"
Else
Set PPApp = GetObject(, "Powerpoint.Application")
' Reference active presentation
Set PPPres = PPApp.ActivePresentation
PPApp.ActiveWindow.ViewType = ppViewSlide
' Reference active slide
Set PPSlide = PPPres.Slides(PPApp.ActiveWindow.Selection.SlideRange.SlideIndex)
' Copy the range as a picture
Selection.Copy
' Paste the range
PPSlide.Shapes.PasteSpecial(Link:=True).Select
' Align the pasted range
' PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
' PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
' Clean up
Set PPSlide = Nothing
Set PPPres = Nothing
Set PPApp = Nothing
End If
End Sub
dBforums
>
Distribute Excel Graphs without the underlying data.
11-28-07, 12:43
Distribute Excel Graphs without the underlying data.
Linear Mode
