Jon,

Thank you for the original code and the upgrade.  I appreciate your taking
the time to look at it.

Frank

Jon,

I am running into a Run-time error '13': Type mismatch on the sTitle =
ExecuteExcel4Macro("GETFORMULA(""TITLE"")") line.  When I debug and hover
over sTitle in the the failed line of code is see ... sTitle = ""

On my chart sheet the Chart Title box is ... ='Chart Data'!$C$5 ... and is
displaying the string ... EUROPE

I have also added the ActiveSheet.Activate line and msgbox to make sure I
was on the right worksheet (although it seems redundant to me since I am
calling the macro from that chart sheet.

I tried to test this using the example macro you provided and I am getting
the same error.  Here is the current code I am running.  Any guidance?  I am
running Excel 2003 SP2 on XP.

Sub ShowChartTitleFormula()
    Dim sTitle As String
    ActiveSheet.Activate
    MsgBox ActiveSheet.Name
    sTitle = ExecuteExcel4Macro("GETFORMULA(""TITLE"")")
    MsgBox sTitle
End Sub

'  **************************

Sub SingleChartAndTitleToPresentation()
' Set a VBE reference to Microsoft PowerPoint Object Library

' This is a modification of code written by Jon Peltier found at
' http://peltiertech.com/Excel/XL_PPT.html
' the modification was made to work with a chart on a chart sheet instead of
' a chart in a worksheet.  In addition, the code was changed to restore the
' title font size back to its original size instead of the default.

' Modified by Frank Hayes

Dim PPApp As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
Dim PPSlide As PowerPoint.Slide
Dim PresentationFileName As Variant
Dim SlideCount As Long
Dim iCht As Integer
Dim sTitle As String
Dim sTitleSize As Integer

' Reference existing instance of PowerPoint
Set PPApp = GetObject(, "Powerpoint.Application")
' Reference active presentation
Set PPPres = PPApp.ActivePresentation
PPApp.ActiveWindow.ViewType = ppViewSlide

ActiveSheet.Activate
MsgBox ActiveSheet.Name

   With ActiveChart

       ' get chart title
       If .HasTitle Then
'           sTitle = .ChartTitle.Text
           sTitle = ExecuteExcel4Macro("GETFORMULA(""TITLE"")")
           sTitleSize = .ChartTitle.Font.Size
           MsgBox sTitle

       Else
           sTitle = ""
       End If

       ' remove title (or it will be redundant)
       .HasTitle = False

       ' copy chart as a picture
       .CopyPicture _
           Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture

       ' restore title
       If Len(sTitle) > 0 Then
           .HasTitle = True
           .ChartTitle.Text = sTitle
           .ChartTitle.Font.Size = sTitleSize
       End If

   End With

   ' Add a new slide and paste in the chart
   SlideCount = PPPres.Slides.Count
   Set PPSlide = PPPres.Slides.Add(SlideCount + 1, ppLayoutTitleOnly)
   PPApp.ActiveWindow.View.GotoSlide PPSlide.SlideIndex
   With PPSlide
       ' paste and select the chart picture
       .Shapes.Paste.Select
       ' align the chart
       PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
       PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
       .Shapes.Placeholders(1).TextFrame.TextRange.Text = sTitle
   End With

   MsgBox "Chart Copied To PowerPoint Presentation"

   ' Clean up
   Set PPSlide = Nothing
   Set PPPres = Nothing
   Set PPApp = Nothing

End Sub