B
Barb Reinhardt
First, I'm still on Excel 2003. I'm trying to programmatically open an
embedded excel object in PowerPoint 2003. My code works if the ProgID is
Excel.Sheet.8, but if it's Excel.Sheet.12, it's a no-go.
This is part of the code
For Each myShape In mySlide.Shapes
If myShape.Name Like "Object*" Then
Debug.Print mySlide.SlideIndex, myShape.OLEFormat.progID
If myShape.OLEFormat.progID Like "Excel*" Then
For Each myWS In myShape.OLEFormat.Object.Worksheets
'If the ProgID is Excel.Sheet.8, this works and I
find a myWS
'If the ProgID is Excel.Sheet.12, doesn't work.
'How do you suggest I proceed.
Next myWS
End if
End if
Next myShape
.... and so on
embedded excel object in PowerPoint 2003. My code works if the ProgID is
Excel.Sheet.8, but if it's Excel.Sheet.12, it's a no-go.
This is part of the code
For Each myShape In mySlide.Shapes
If myShape.Name Like "Object*" Then
Debug.Print mySlide.SlideIndex, myShape.OLEFormat.progID
If myShape.OLEFormat.progID Like "Excel*" Then
For Each myWS In myShape.OLEFormat.Object.Worksheets
'If the ProgID is Excel.Sheet.8, this works and I
find a myWS
'If the ProgID is Excel.Sheet.12, doesn't work.
'How do you suggest I proceed.
Next myWS
End if
End if
Next myShape
.... and so on