Code: Select all
.Shapes(2).TextFrame.TextRange.PasteSpecial DataType:=9
Code: Select all
x = Range("I1").Value
For i = 1 To x Step 3
'Copy Range from Excel
Set Rng = ThisWorkbook.ActiveSheet.Cells(i, 1).Resize(3)
Rng.Copy
SlideCount = PPPres.Slides.Count
Set PPSlide = PPPres.Slides.AddSlide(SlideCount + 1, PPTLayout)
PPApp.ActiveWindow.View.GotoSlide PPSlide.SlideIndex
With PPSlide
.Shapes(1).TextFrame.TextRange = Range("H1").Value
.Shapes(2).TextFrame.TextRange.PasteSpecial DataType:=9
End With
Next i