Hi i have a xls source file, where the macro takes all data, these data are organized in charts, one chart every spreadsheet.
I set up the macro to export these charts in a powerpoint file.
I must create a ppt presentation, but when i paste the chart on the slide the problem is the lenght…i would set a cycle to do:
when the cycle finds a particular value (such as in the example CAR-1010), it should stop paste, add a new slide.
On the new slide paste chart's first row (target, etc.....) and the last part of the chart, from Car- 1010 to the end
if is it pobbile i would align what has pasted by the bottom.
i set up the ppt and then i'm stopped at this point when i have to divide the images in two slides
ThisWorkbook.Worksheets("Sheets1").Activate
xlapp.Range("e1:h22").Select
xlapp.Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
pptApp.ActiveWindow.View.GotoSlide (4)
Set ppslide = pptApp.ActiveWindow.View.Slide
pptApp.ActiveWindow.Selection.ShapeRange.Align msoAlignCenter, True
pptApp.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
I added a xls to show what i meant....
Thank you!!!!
Bookmarks