Kemal Demir
Özel Üye
- Katılım
- 29 Temmuz 2004
- Mesajlar
- 2,108
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.
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.
Kod:
ActiveSheet.ChartObjects(1).Select
ActiveSheet.ChartObjects(1).Copy
objSlide.Shapes.Paste.Select
Kod:
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