Excel'den PowerPoint Sayfa Atlayarak Aktarma

[Tilkea.]

Merhaba

Excel'den PP'de hazır olan bir makro ile sayfa aktarıyorum fakat bu sayfalar sırayla yapışıyor. Benim istediğim ise sayfa atlayarak, örneğin 4 sayfada bir sıradaki sayfayı PP'e aktarması. Aktarırken kullandığım kodun bir bölümü- ekleme yapılması gerektiğini düşündüğüm kısım aşağıdaki gibidir.

ActiveSheet.Range("B3:J30").Select
    PPApp.Visible = True
    Selection.CopyPicture Appearance:=xlScreen, _
    Format:=xlPicture

    On Error Resume Next
    PPApp.Visible = True
    PPSlide.Shapes.Paste.Select

Yardımcı olursanız çok sevinirim

 

[Muzaffer Ali]

Merhaba.

Kodun tamamını yazarsanız yardımcı olalım.