Mattthompson
09-14-2017, 04:26 AM
Hello,
I want to determine an active cell of a table in powerpoint.
To each cell I assigned a link via 'Insert => Action' to the macro below.
When working in development mode it works, but when I switch to presentation mode, it seems that there is a problem with the property 'selected'.
Thanks in advance for your help!
With SlideShowWindows(1).Presentation.Slides(2).Shapes(40).Table
'With ActivePresentation.Slides(2).Shapes(40).Table
For iTS = 1 To .Columns.Count
For jTS = 1 To .Rows.Count
If .Cell(jTS, iTS).Selected Then
strCell = .Cell(jTS, iTS).Shape.TextFrame.TextRange.Text
Exit For
End If
Next
If jTS <= .Columns.Count Then
If .Cell(jTS, iTS).Selected Then
Exit For
End If
End If
Next
End With
I want to determine an active cell of a table in powerpoint.
To each cell I assigned a link via 'Insert => Action' to the macro below.
When working in development mode it works, but when I switch to presentation mode, it seems that there is a problem with the property 'selected'.
Thanks in advance for your help!
With SlideShowWindows(1).Presentation.Slides(2).Shapes(40).Table
'With ActivePresentation.Slides(2).Shapes(40).Table
For iTS = 1 To .Columns.Count
For jTS = 1 To .Rows.Count
If .Cell(jTS, iTS).Selected Then
strCell = .Cell(jTS, iTS).Shape.TextFrame.TextRange.Text
Exit For
End If
Next
If jTS <= .Columns.Count Then
If .Cell(jTS, iTS).Selected Then
Exit For
End If
End If
Next
End With