Linked excel workbooks to powerpoint, linking cells

[Frockk]

Hello,

The situation: I have power point file which has 2 slides, if I understand correctly each slide is linked with seperate excel WORKBOOKS.
When you select lets say first slide and tap 2 times on content excel workbook appears, then You can enter required data and formulas workout additional info. Second slide is made the same, just it shows different information.

The problem is that that "REQUIRED DATA" to be entered is the same in both slides (it is only 1 cell, data is whole number).
Because power point do not link slides together two seperated workbooks is linked to them.

The requirement is really simple, I need lets say the information what is entered in slide one A11 cell to appear also in second slide B12 cell.

I believe the only way to do so is VBA.

If you find it intresting but not understandable I will try to explain it more detailed.
I believe this might be very useful tool to all community.

 

[Worf]

Hello

• For this example to work, you need to run the initialise routine first.
• Note where to paste the two pieces of code.

' standard PowerPoint module
Public objNewSlide As New Class2


Sub Initialise()
Set objNewSlide.PPTEvent = Application
End Sub


Sub Release()
Set objNewSlide.PPTEvent = Nothing
End Sub


'***********************************************

'PowerPoint class module named Class2


Public WithEvents PPTEvent As Application


Private Sub PPTEvent_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
If Wn.View.CurrentShowPosition = 3 Then                                         ' third slide
    ActivePresentation.Slides(3).Shapes(1).OLEFormat.Object.sheets(1).[L13] = _
    ActivePresentation.Slides(2).Shapes(1).OLEFormat.Object.sheets(1).[L15]
    DoEvents
End If
End Sub