Find and select table

[Guest]

I need to chang the last field in tables on different slides. It is always
the last table on the slides. After I manually select the table, I know how
to find the cell within the table I need to change, however, I don't know how
to find (using vba) and select the table so I can change the cell. I'm using
PPT 2003. So, using vba, how do I find the last table on each slide and then
select it? (If I have ten slides then I will end up changing ten tables).

Thank you.

 

[Steve Rindsberg]

I need to chang the last field in tables on different slides. It is always
the last table on the slides. After I manually select the table, I know how
to find the cell within the table I need to change, however, I don't know how
to find (using vba) and select the table so I can change the cell. I'm using
PPT 2003. So, using vba, how do I find the last table on each slide and then
select it? (If I have ten slides then I will end up changing ten tables).

Something like this. Air code. May require tweakage:

Function LastTable(oSld as Slide) as Shape
' Returns the last table on slide oSld

Dim oSh as Shape
Dim oTblShape as Shape

For each oSh in oSld.Shapes
If oSh.HasTable Then
' it's a table. set a reference to it
Set oTblShape = oSh
End If
Next ' Shape

' we've looked at each shape on the slide
' if there were any tables among them, then
' we have a reference to it in oTblShape
' Hand it back:
Set LastTable = oTblShape

End Function

Sub TestIt()
LastTable(ActivePresentation.Slides(1)).Select
End Sub

 

[Guest]

Steve,

Thank you, that worked perfectly!

Ron

Something like this. Air code. May require tweakage:

Function LastTable(oSld as Slide) as Shape
' Returns the last table on slide oSld

Dim oSh as Shape
Dim oTblShape as Shape

For each oSh in oSld.Shapes
If oSh.HasTable Then
' it's a table. set a reference to it
Set oTblShape = oSh
End If
Next ' Shape

' we've looked at each shape on the slide
' if there were any tables among them, then
' we have a reference to it in oTblShape
' Hand it back:
Set LastTable = oTblShape

End Function

Sub TestIt()
LastTable(ActivePresentation.Slides(1)).Select
End Sub

-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================

 

[Steve Rindsberg]

Steve,

Thank you, that worked perfectly!

'Hit's a miracle, I tellya. <g>