PPT 2007: how to manipulate embedded Excel worksheet?

D

DannyBoy

Hi all,

I've looked around at similar posts but can't seem to resolve the issue I'm
having.

I'm trying to create a PPT 2007 slide that has two shapes on it. The first
is an ActiveX spinner button, and the second is an embedded Excel worksheet
object with a chart on it.

I'd like to let the user click on the spinner button in slideshow mode and
have a corresponding cell in the Excel worksheet change, which then would be
reflected in the chart.

Here's what I've got so far. I had something running OK before but I
obviously messed it up with subsequent fiddling.

I can't seem to get the G4 reference to be active on the embedded worksheet.
Instead it seems to be changing the new worksheet that gets created.

I'd appreciate any help.
Thanks


Private Sub SpinButton1_Change()
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object

On Error Resume Next
Set xlApp = GetObject(, "Excel.Application")
If Err Then
ExcelWasNotRunning = True
Set xlApp = CreateObject("Excel.Application")
End If

xlApp.Visible = False

xlApp.Range("G4").Value = SpinButton1.Value
test = xlApp.Range("G4").Value

For Each shp In Me.Shapes
If shp.Type = msoLinkedOLEObject Then
shp.LinkFormat.Update
End If
Next shp
End Sub
 
Top