PPT Merging

[Guest]

I have a PPT file that contains some Excel spreadsheets. I send this PPT out
for some people to update and then I merge all of their changes into one
master copy to send to upper management. I want to be able to see the changes
that were made, mainly to the spreadsheets that are in the PPT slides. What I
would like to see happen is all the changes be added in a different color so
I can see what specifically has been changed. I cannot use PPT's Change and
Merge functionality because the spreadsheet is considered 1 object, so if 2
people make changes to this spreadsheets, I can only accept one of their
changes.

The reason I use PPT over Excel is that we have had lost data when sending
the Excel spreadsheets over e-mail, where this doesn't occur if the
spreadsheet is embedded in a PPT presentation. Also, for some reason with our
projectors, the spreadsheets project very small at presentations, where
embedded in the PPT presentation, they project at a nice size.

I have used the open-source program WinMerge to do this with Word docs and
CPP files, which it is nice in that it highlights all the changes and shows
the 2 docs side-by-side. Right now I make all the changes reported to me by
hand which is a very time consuming process. Any help is greatly appreciated!
Thanks a lot!!!

 

[Guest]

Hi Todd,

This is not a finished code but I am already there.
You can continue and figure out what I am doing you will attain what you want.
Hope this helps.

All you need is to put this on a commandbutton and run.

Private Sub CommandButton1_Click()
Set AppPPT = CreateObject("Powerpoint.Application")
AppPPT.Visible = True
Set pptPres = AppPPT.Presentations.Open("C:\Temp6\Presentation2.ppt")
Set pptPres = AppPPT.Presentations.Open("C:\Temp6\Presentation3.ppt")
Application.Run "Mel"
End Sub
Sub Mel()
Windows.Item(Index:=3).Activate
ActiveWindow.Selection.SlideRange.Shapes.SelectAll
ActiveWindow.ViewType = ppViewSlideSorter
ActiveWindow.Selection.Copy
Windows.Item(Index:=2).Activate
ActiveWindow.ViewType = ppViewSlideSorter
ActiveWindow.Selection.Unselect
ActiveWindow.View.Paste
End Sub