erg omslachtig en niet zonder vba kan het op de volgende manier (getest op PP 2002) :
-voeg een gewone tabel in via het pp-menu en degroepeer deze zodat iedere cel als een apart tekstvak (shape) ter beschikking staat.
-voeg aan elke tekstvakshape (rij) een klikactie toe die naar de volgende code verwijst :
Visual Basic:
1
2
3
4
5
6
7
8
9
10
11
12
13
| Option Explicit
Public Sub clickobjcell1()
If (240 = ActivePresentation.Slides(1).Shapes(12).Width) Then
ActivePresentation.Slides(1).Shapes(12).Width = 300
ActivePresentation.Slides(1).Shapes(12).TextFrame.TextRange.Text = _
"nu nog veel meer tekst"
Else
ActivePresentation.Slides(1).Shapes(12).Width = 240
ActivePresentation.Slides(1).Shapes(12).TextFrame.TextRange.Text = _
"originele tekst"
End If
End Sub |
deze code past de grootte en tekstinhoud van het originele tekstvak aan. een volgende klik herstelt de oorspronkelijke grootte & inhoud.