右键以管理员身份运行命令提示符，按照您需要的性能模式输入以下代码并回车进行解锁：

高性能：powercfg -s 8c5e7fda-e8bf-4a96-9a85-a6e23a8c635c

卓越性能：powercfg -s e9a42b02-d5df-448d-aa00-03f14749eb61

节能：powercfg -s a1841308-3541-4fab-bc81-f71556f20b4a

Sub ShuffleSlides()

Dim slideCount As Long

Dim i As Long

Dim j As Long

Dim temp As Long

Dim slideIndices() As Long

' 获取幻灯片数量

slideCount = ActivePresentation.Slides.Count

' 创建一个数组存储幻灯片索引

ReDim slideIndices(1 To slideCount)

' 初始化数组

For i = 1 To slideCount

slideIndices(i) = i

Next i

' 使用 Fisher-Yates 洗牌算法打乱数组

For i = slideCount To 2 Step -1

j = Int((i - 1 + 1) * Rnd + 1)

temp = slideIndices(i)

slideIndices(i) = slideIndices(j)

slideIndices(j) = temp

Next i

' 按照打乱的顺序重新排列幻灯片

For i = 1 To slideCount

ActivePresentation.Slides(slideIndices(i)).MoveTo toPos := i

Next i

End Sub

解决surface睡死：通过控制面板>疑难解答>查看全部>电源>按照屏幕指示点选下一步，一直下一步让系统修正三項錯誤，一般会修正3-4个错误，修正完毕关了就可以了。

弗洛伊德（Sigmund Freud）：“人类的所有行为都源自于两种基本的驱动力：爱与欲望。”

歌德（Johann Wolfgang von Goethe）：“欲望是灵魂的火焰，它能燃烧一切。”

✨ 你们有没有发现，到了2024年，R星竟然还是在炒冷饭呢！我有个朋友居然买了PC版的《荒野大镖客》，你们知道吗？就是那款画质低得让人怀疑人生、无法联机，还被暴力重制成老古董的游戏！😂我在想，我该卸载哪款游戏才能下载重制版的《荒野大镖客》磁盘空间都快不够了