Public Sub SPLASHSCREEN()
On Error Resume Next
Set oPPT = New PowerPoint.Application
Set oPres = oPPT.Presentations.Add(True)
Set RS = DB.OpenRecordset("ScreensTitles")
txtTitle1 = "Selamat Datang"
txtTitle2 = "Piss... RENTAL SYSTEM"
Set oSlide = oPres.Slides.Add(1, ppLayoutTitle)
oSlide.Shapes("Rectangle 2").TextFrame.TextRange.Text = _
txtTitle1
oSlide.Shapes("Rectangle 3").TextFrame.TextRange.Text = _
txtTitle2
Do
With oPres.Slides.Range
.ColorScheme = oPres.ColorSchemes(3)
With .SlideShowTransition
If SlideCounter = 0 Then
.EntryEffect = ppEffectDissolve
End If
If SlideCounter = 1 Then
.EntryEffect = ppEffectRandomBarsVertical
ElseIf SlideCounter = 2 Then
.EntryEffect = ppEffectRandomBarsHorizontal
ElseIf SlideCounter = 3 Then
.EntryEffect = ppEffectStripsRightDown
ElseIf SlideCounter = 4 Then
.EntryEffect = ppEffectUncoverLeftUp
ElseIf SlideCounter = 5 Then
.EntryEffect = ppEffectMixed
ElseIf SlideCounter = 6 Then
.EntryEffect = ppEffectRandom
ElseIf SlideCounter = 7 Then
.EntryEffect = ppEffectWipeDown
ElseIf SlideCounter = 8 Then
.EntryEffect = ppEffectWipeUp
ElseIf SlideCounter = 9 Then
.EntryEffect = ppEffectWipeRight
ElseIf SlideCounter = 10 Then
.EntryEffect = ppEffectSpiral
ElseIf SlideCounter = 11 Then
.EntryEffect = ppEffectSplitHorizontalOut
ElseIf SlideCounter = 12 Then
.EntryEffect = ppEffectStretchAcross
ElseIf SlideCounter = 13 Then
.EntryEffect = ppEffectWipeUp
ElseIf SlideCounter = 14 Then
.EntryEffect = ppEffectZoomCenter
ElseIf SlideCounter = 15 Then
.EntryEffect = ppEffectZoomInSlightly
ElseIf SlideCounter = 16 Then
SlideCounter = 0
End If
.AdvanceOnTime = True
.AdvanceTime = 3
End With
End With
'View the slide show
Sleep 10
With oPres.SlideShowSettings
.AdvanceMode = ppSlideShowUseSlideTimings
.Run
End With
intNoOfSlides = intNoOfSlides + 1
Loop Until intNoOfSlides >= 70
Sleep 3000
oPPT.Quit
End Sub
--------------------------------------TANYA....
saya harus tambahkan script apa untuk menghilangkan powerpointshow page end di
dalam vb?
sudah jalan... tapi setiap diklik powerpoint pagenya tidak langsung login...
tapi muncul page end of slideshow. kan gak lucu kalau ada blank hitamnya dulu...
matur nuwun sebelumnya.... lagi belajar nih. ngutak atik dari vbcoding
