VBA - index of selected table-shape

[Siberianhusky]

dear ng again,

i need the actualy index of an selected table-shape. how can i read them?

i need them, to format the table automaticly like...

With sSh.Table
For iRow = 1 To .Rows.Count
For iColumn = 1 To .Columns.Count
......

it works, if i do it like this...
Set sSh = ActivePresentation.Slides(1).Shapes(1)

....if on Slide 1 is only an table. but i need the actualy, selected
table-index.

thanks and regards
Siberianhusky

 

[Shyam Pillai]

Some useful table manipulation routines:

Detecting selected cells in a PowerPoint Table
http://skp.mvps.org/ppttable2.htm

Set table border colour
http://skp.mvps.org/pptxp009.htm

Manipulate Native PowerPoint Table in PowerPoint 2000 or later
http://skp.mvps.org/ppttable.htm#2

 

[Siberianhusky]

thank you, but the ShapeRange(1)-Index is not allways the number one. i need
the aktually, selected index of the shape!

regards
Siberianhusky

 

[Siberianhusky]

thank you.
i now those examples, but in all them are fix shape-indexs. i need the
aktually selected shape-index wich the user has selected!

for example - the aktually slide-nummber:
iSlideNumber = ActiveWindow.Selection.SlideRange.SlideIndex

but i cann't find the index for the selected shape. who can help? thanks.

regards,
Siberianhusky

 

[Siberianhusky]

i get it!

sShape = ActiveWindow.Selection.ShapeRange.Name
Set sSh =
ActivePresentation.Slides(ActiveWindow.Selection.SlideRange.SlideIndex).Shapes(sShape)

regards,
Siberianhusky

 

[Siberianhusky]

i get it! -->

sShape = ActiveWindow.Selection.ShapeRange.Name
Set sSh =
ActivePresentation.Slides(ActiveWindow.Selection.SlideRange.SlideIndex).Shapes(sShape)

regards,
Siberianhusky

 

[Siberianhusky]

i'm terrible sorry! youre right!

regards,
Siberianhusky