Excelde olusan Grafiğimi kod ile PPT dosyasına atma

[Kemal Demir]

Arkadaslar merhaba,

Aşagıdaki kod ile excelde olusturdugum grafikleri ,açık olan powerpoint dosyasına yolluyorum.Yolluyorumda bir obje olarak veriyi direk olarak ppt ye yollama imkanım yokmudur.

Aşagıdaki kodda nasıl bir değişiklik yapabilirim.

ActiveSheet.ChartObjects(1).Select
ActiveSheet.ChartObjects(1).Copy
objSlide.Shapes.Paste.Select

On Error GoTo olmadi
  Dim objPPT As Object
    Dim objSlide As Object
    Dim i As Integer, j As Integer
    Set objPPT = GetObject(, "Powerpoint.Application")
    objPPT.ActiveWindow.ViewType = 1
    For j = 6 To objPPT.ActivePresentation.Slides.Count
        objPPT.ActiveWindow.View.GotoSlide Index:=j - 5
        Set objSlide = objPPT.ActivePresentation.Slides(j - 5)
            Sheets(j).Select
            Range("a1").Select
                say = ActiveSheet.ChartObjects.Count
                If say > 0 Then
             gf = gf + 1
                 ActiveSheet.ChartObjects(1).Select
                 ActiveSheet.ChartObjects(1).Copy
                 objSlide.Shapes.Paste.Select
                objPPT.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
                objPPT.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
            End If
        say = Sheets.Count - 5
        t = t + 1
        If t = say Then
            Sheets("Liste").Select
            MsgBox t & " " & ":" & " " & "Adet Grafik Kopyalandı"
Call curn
        
        Exit Sub
        End If
     Next
olmadi:     MsgBox ("İşlemin Gerçekleşmesi İçin PPT Dosyasını Açınız"), vbCritical, "Dikkat"
    Set objSlide = Nothing
    Set objPPT = Nothing

 

[Ferhat Pazarçevirdi]

Kemal bey,

Olayı anlamak adına soruyorum:

Excel dosyanızdaki tek bir sheet'de birden fazla sayıda grafik var ve

Siz bu grafikleri, PowerPoint'e; herbiri bir slayt sayfasına yerleşecek şekilde kopyalamak mı istiyorsunuz?


.