Grafik Alanını kullanarak slide show yapmak.

[usta07]

Grafik alanına eklenen resimlerin yada doğrudan grafiklerin
slide show halinde sunumu;
Kodlarını, spreadsheetpage.com isimli siteden aldığım değişik bir çalışmayı paylaşmak istedim. umarım birilerinin işine yarar.

Sub Slide_Show()
    Dim Cht As ChartObject
    Dim UserSheet As Worksheet
    Set UserSheet = ActiveSheet
    Application.DisplayFullScreen = True
    Application.DisplayAlerts = False
    
    For Each Cht In UserSheet.ChartObjects
        Application.ScreenUpdating = False
'       Eğer varsa eski grafik sayfasını sil
        On Error Resume Next
        Charts("ChartTemp").Delete
        On Error GoTo 0
'       Katıştırılmış grafiği ve hareketi kopyalayın
        UserSheet.Activate
        Cht.Chart.ChartArea.Copy
        ActiveSheet.Paste
        ActiveChart.Location Where:=xlLocationAsNewSheet, _
            Name:="ChartTemp"
'       Sonraki bir grafik ve istemi sayfası
        Application.ScreenUpdating = True
        If MsgBox("Tamam yada İptal.", _
            vbQuestion + vbOKCancel) = vbCancel Then Exit For
    Next Cht
    
'   Temizlemek
    On Error Resume Next
    Charts("ChartTemp").Delete
    On Error GoTo 0
    Application.DisplayFullScreen = False
    Application.DisplayAlerts = True
    UserSheet.Activate
End Sub