Hallo allemaal,
Ik heb een vraag mbt VB6. Ik heb van de microsoft site het volgende stukje code gedownload(zie code onderaan dit bericht)
Hiermee wordt een PowerPoint presentatie gevuld met info die ik krijg uit een tekstveld(genaamd Test1) op een Userform. Nu is mijn probleem/vraag weet iemand hoe ik de grote van het lettertype moet aanpassen dat op de presentatie wordt gezet. De info die ingevoerd wordt in het tekstveld(Test1) is namelijk behoorlijk lang. Nu valt een gedeelte van deze tekst buiten de presentatie. Ik zoek dus een functie/programma regel waarmee ik, afhankelijk van de lengte van de ingevoerde tekst, de letter grote kan aanpassen zodat deze in zijn geheel op de powerpoint presentatie past. Sorry van het lange verhaal/vraag, maar ik hoop dat nog iemand mijn vraag begrijpt en mogelijk een antwoord heeft.
Alvast bedankt....
Piet
' Start PowerPoint.
Dim ppApp As PowerPoint.Application
Set ppApp = CreateObject("Powerpoint.Application")
' Maak de toepassing zichtbaar.
ppApp.Visible = True
' Voeg een nieuwe presentatie toe.
Dim ppPres As PowerPoint.Presentation
Set ppPres = ppApp.Presentations.Open("c:\test.ppt", msoTrue)
' Voeg een nieuwe dia toe.
Dim ppSlide1 As PowerPoint.Slide
Set ppSlide1 = ppPres.Slides.Add(1, ppLayoutText)
' Voeg wat tekst toe.
ppSlide1.Shapes(1).TextFrame.TextRange.Text = txtTest1(0)
ppSlide1.Shapes(2).TextFrame.TextRange.Text = "Test 1 : " & txtTest1.Text & ......
' Stel eigenschappen van de diavoorstelling in.
With ppPres.Slides.Range.SlideShowTransition
.EntryEffect = ppEffectRandom
End With
' Bereid de diavoorstelling voor en voer deze uit.
With ppPres.SlideShowSettings
.ShowType = ppShowTypeSpeaker
.RangeType = ppShowAll
.AdvanceMode = ppSlideShowManualAdvance
.Run
End With
Ik heb een vraag mbt VB6. Ik heb van de microsoft site het volgende stukje code gedownload(zie code onderaan dit bericht)
Hiermee wordt een PowerPoint presentatie gevuld met info die ik krijg uit een tekstveld(genaamd Test1) op een Userform. Nu is mijn probleem/vraag weet iemand hoe ik de grote van het lettertype moet aanpassen dat op de presentatie wordt gezet. De info die ingevoerd wordt in het tekstveld(Test1) is namelijk behoorlijk lang. Nu valt een gedeelte van deze tekst buiten de presentatie. Ik zoek dus een functie/programma regel waarmee ik, afhankelijk van de lengte van de ingevoerde tekst, de letter grote kan aanpassen zodat deze in zijn geheel op de powerpoint presentatie past. Sorry van het lange verhaal/vraag, maar ik hoop dat nog iemand mijn vraag begrijpt en mogelijk een antwoord heeft.
Alvast bedankt....
Piet
' Start PowerPoint.
Dim ppApp As PowerPoint.Application
Set ppApp = CreateObject("Powerpoint.Application")
' Maak de toepassing zichtbaar.
ppApp.Visible = True
' Voeg een nieuwe presentatie toe.
Dim ppPres As PowerPoint.Presentation
Set ppPres = ppApp.Presentations.Open("c:\test.ppt", msoTrue)
' Voeg een nieuwe dia toe.
Dim ppSlide1 As PowerPoint.Slide
Set ppSlide1 = ppPres.Slides.Add(1, ppLayoutText)
' Voeg wat tekst toe.
ppSlide1.Shapes(1).TextFrame.TextRange.Text = txtTest1(0)
ppSlide1.Shapes(2).TextFrame.TextRange.Text = "Test 1 : " & txtTest1.Text & ......
' Stel eigenschappen van de diavoorstelling in.
With ppPres.Slides.Range.SlideShowTransition
.EntryEffect = ppEffectRandom
End With
' Bereid de diavoorstelling voor en voer deze uit.
With ppPres.SlideShowSettings
.ShowType = ppShowTypeSpeaker
.RangeType = ppShowAll
.AdvanceMode = ppSlideShowManualAdvance
.Run
End With
