- Joined
- Jan 7, 2013
- Messages
- 1
- Reaction score
- 0
Hi...
I am trying to have a power point slide display "Day: 1" on odd days and "Day: 2" on even days in a textbox.
I am able to get a Message Box to work with the following code:
Sub SchoolDay()
If (Day(Date) Mod 2) = 0 Then
MsgBox ("Day: 2") 'Even Number Day is Day 2
Else
MsgBox ("Day: 1") 'Odd Number Day is Day 1
End If
End Sub
How can I get PowerPoint on entry to slide to run a similar script that would place the text in a textbox instead.
Thanks for your help.
-Ian
I am trying to have a power point slide display "Day: 1" on odd days and "Day: 2" on even days in a textbox.
I am able to get a Message Box to work with the following code:
Sub SchoolDay()
If (Day(Date) Mod 2) = 0 Then
MsgBox ("Day: 2") 'Even Number Day is Day 2
Else
MsgBox ("Day: 1") 'Odd Number Day is Day 1
End If
End Sub
How can I get PowerPoint on entry to slide to run a similar script that would place the text in a textbox instead.
Thanks for your help.
-Ian
Last edited: