Mình muốn tạo một nút Action trong mỗi slide, khi bấm vào sẽ chuyển đổi sang 1 slide khác một cách ngẩu nhiên và không lặp lại. Mình tham khảo trên một số diễn đàn thì tìm đc 1 macro như sau :
Sub random()
ActivePresentation.SlideShowWindow.View.GotoSlide Int(Rnd * ActivePresentation.Slides.Count) + 2
End Sub
Mình dùng cái này thì đã có thể chuyển slide một cách ngẩu nhiên khi bấm vào, nhưng thiếu chức năng không lặp lại slide cũ.
Mình rất dốt khoản tạo code. Mong các pro giúp đở.
Sub random()
ActivePresentation.SlideShowWindow.View.GotoSlide Int(Rnd * ActivePresentation.Slides.Count) + 2
End Sub
Mình dùng cái này thì đã có thể chuyển slide một cách ngẩu nhiên khi bấm vào, nhưng thiếu chức năng không lặp lại slide cũ.
Mình rất dốt khoản tạo code. Mong các pro giúp đở.