Check alle échte Black Friday-deals Ook zo moe van nepaanbiedingen? Wij laten alleen échte deals zien

[Powerpoint 2007] Teksteffect per rij in een tabel

Pagina: 1
Acties:

  • Blue_Fear
  • Registratie: Augustus 2004
  • Laatst online: 22-09-2024
Aangezien ik een tabel heb waarin veel tekst sta wil ik de tabel per rij per muisklik laten verschijnen. Weet iemand of dit mogelijk is? En zo ja, hoe?

Bij voorbaat dank!

Verwijderd

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.