Đổi vị trí Slide ngẫu nhiên Power Point

[hoaiphong.q7]

Chào mọi người,
Mình muốn đổi Ngẫu Nhiên vị trí các Slide để trình chiếu.
Ở trên lớp thấy cô nhấp vào Mục MACRO rồi chọn Run để đảo vị trí các slide.

Xin hỏi các bạn, làm thế nào để đổi được như vậy.
Cảm ơn rất nhiều

 

[comet_1701]

Chào mọi người,
Mình muốn đổi Ngẫu Nhiên vị trí các Slide để trình chiếu.
Ở trên lớp thấy cô nhấp vào Mục MACRO rồi chọn Run để đảo vị trí các slide.

Xin hỏi các bạn, làm thế nào để đổi được như vậy.
Cảm ơn rất nhiều

Sub Sap_xep()


      Dim Tongso_Slides As Long
      Dim x As Long
        Tongso_Slides = ActivePresentation.Slides.Count
        If Tongso_Slides = 1 Then
             MsgBox "Chi so 1 sile trong " _
                   & "trong trinh chieu cua ban.", vbExclamation
        Else
            For x = 1 To Tongso_Slides - 1
            ActivePresentation.Slides(Tongso_Slides).Cut
            ActivePresentation.Slides.Paste x
         Next x
      End If


   End Sub

Sub DC()
    ActivePresentation.Slides(3).MoveTo ToPos:=1
End Sub

Sub Sort_Ngau_Nhien()


    Dim i As Integer
    Dim GT As Integer
    Dim VTslides As Integer
    VTslides = ActivePresentation.Slides.Count
    For i = 1 To ActivePresentation.Slides.Count
        GT = Int((i * Rnd) + 1)
        ActiveWindow.ViewType = ppViewSlideSorter
        ActivePresentation.Slides(GT).Select
        ActiveWindow.Selection.Cut
        ActivePresentation.Slides(VTslides - 1).Select
        ActiveWindow.View.Paste
    Next


End Sub

Bạn xem cái nào hợp với bạn thì dùng, nhưng đoán chắc là cái thứ 3

 

[hoaiphong.q7]

Cảm ơn bạn nhiều lắm , mình làm được rồi.

 

[michaellee]

Cảm ơn bạn nhiều lắm , mình làm được rồi.

Bạn có thể hướng dẫn lại mình cách làm được không ?
Mình cũng đang cần mà vẫn chưa biết phải làm sao.