Sub ChartSlideShow()
    Dim Cht As ChartObject
    Dim UserSheet As Worksheet
    Set UserSheet = ActiveSheet
    Application.DisplayFullScreen = True
    Application.DisplayAlerts = False

For Each UserSheet In ActiveWorkbook.Sheets
    For Each Cht In UserSheet.ChartObjects
        With Application
          .ScreenUpdating = False
        End With
        
        ' Delete old chart sheet if it exists
        On Error Resume Next
        Charts("ChartTemp").Delete
        On Error GoTo 0
        ' Copy embedded chart and move it
        UserSheet.Activate
        ActiveWindow.DisplayHeadings = False
        ActiveWindow.DisplayWorkbookTabs = False
        Cht.Chart.ChartArea.Copy
        ActiveSheet.Paste
        ActiveChart.Location Where:=xlLocationAsNewSheet, _
           Name:="ChartTemp"
        ' Show the chart sheet and prompt for next one
        Application.ScreenUpdating = True
        If MsgBox("OK za naredni grafikon, Cancel za prekid.", _
          vbQuestion + vbOKCancel) = vbCancel Then Exit For
     Next Cht
                              
Next UserSheet

     ' Clean up
     On Error Resume Next
     Charts("ChartTemp").Delete
     With ActiveWindow
          .DisplayHeadings = True
          .DisplayWorkbookTabs = True
     End With
     On Error GoTo 0
     Application.DisplayFullScreen = False
     Application.DisplayAlerts = True
    ' UserSheet.Activate
End Sub