Snasui Excel Forum

Code: Select all

Private Sub TextBox11_Change()
TextBox11.Value = Format(TextBox11.Value, "##.#0")
End Sub

Code: Select all

Private Sub TextBox11_LostFocus()
   TextBox11.Value = Format(TextBox11.Value, "##.#0")
End Sub

Private Sub ComboBox22_GotFocus()
    For i = 1 To 24
       ComboBox22.AddItem i
    Next i
End Sub

Code: Select all

Private Sub ComboBox22_Change()
    Test
End Sub

Code: Select all

Sub Test()
    With ActivePresentation.SlideShowSettings
        .ShowType = ppShowTypeSpeaker
        .LoopUntilStopped = msoTrue
        .ShowWithNarration = msoFalse
        .ShowWithAnimation = msoTrue
        .RangeType = ppShowAll
        .AdvanceMode = ppSlideShowUseSlideTimings
        .PointerColor.RGB = RGB(Red:=255, Green:=0, Blue:=0)
        .Run
    End With
    SlideShowWindows(Index:=1).View.Next
    SlideShowWindows(Index:=1).View.Previous
End Sub