link excel cell to powerpoint textbox

[Rune PS]

Im looking for a way to link a excel cell to a powerpoint textbox, such that if the cell changes, the text in powerpoint will aswell.

Ideally, something similar to the way you can link excel cells to word text. That works by copying the excel cell you want, and using "paste special" and pasting a linked unformatted text. Is there anyway to do this similarly in powerpoint?

worth noting, i know that you can copy excel ranges and input them as linked pictures - that is not what i am looking for, as i need to be able to write around it in powerpoint. Does anyone know if this is possible?

 

[Worf]

o When the slide show reaches the desired slide, the text box is updated with the cell value.
o Before using it, run the Init routine.

' PowerPoint module
Dim cPPTObject As New Class1
Sub Init()
Set cPPTObject.PPTEvent = Application
End Sub

Public WithEvents PPTEvent As Application
' class module named Class1
Private Sub PPTEvent_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
Dim si%, xlap As Excel.Application, wb As Workbook, sh As Shape
si = Wn.View.Slide.SlideIndex
If si = 4 Then                                  ' fourth slide
    Set xlap = GetObject(, "Excel.Application") ' assumes Excel is running
    xlap.Visible = 1
    Set wb = xlap.Workbooks(1)
    Set sh = ActivePresentation.Slides(si).Shapes("textbox 2")
    sh.TextFrame.TextRange.Text = wb.Worksheets(1).[d15]
End If
End Sub