Beste Helpers,
Ik wil met één handeling in mijn hele Powerpoint-bestand alle tekstvakken met bijvoorbeeld tekstgrootte 18 aanpassen in tekstgrootte 20.
Met behulp van de suggesties op in mijn eerdere topic geraadpleegd hoopte ik het zelf te kunnen oplossen.
https://www.helpmij.nl/forum/showthread.php/956952-dikte-van-de-randen-aanpassen-in-PowerPoint
Ik kwam tot het volgende:
De select-case is mijn aanpassing van dat eerdere topic maar die gaat fout op de eerste regel.
Ik hoopte met de If ... Then meer succes te hebben maar helaas. Waarschijnlijk eenzelfde soort fout.
Waarschijnlijk is de code heel simpel aan te passen.
Kan iemand mij op weg helpen?
Alvast bedankt voor jullie hulp.
Groetjes,
Ger
Ik wil met één handeling in mijn hele Powerpoint-bestand alle tekstvakken met bijvoorbeeld tekstgrootte 18 aanpassen in tekstgrootte 20.
Met behulp van de suggesties op in mijn eerdere topic geraadpleegd hoopte ik het zelf te kunnen oplossen.
https://www.helpmij.nl/forum/showthread.php/956952-dikte-van-de-randen-aanpassen-in-PowerPoint
Ik kwam tot het volgende:
Code:
Public Sub TekstGrootte()
For Each oSlide In ActivePresentation.Slides
For Each oTextBox In oSlide.Shapes
If oTextBox.Font.Size < 20 Then
oTextBox.Font.Size = 40
End If
' Select Case oTextbox.Shape
' Case msoTextBox
' If oTextbox.Font.Size = 18 Then oTextbox.Font.Size = 40
' End Select
Next
Next
End Sub
Ik hoopte met de If ... Then meer succes te hebben maar helaas. Waarschijnlijk eenzelfde soort fout.
Waarschijnlijk is de code heel simpel aan te passen.
Kan iemand mij op weg helpen?
Alvast bedankt voor jullie hulp.
Groetjes,
Ger