Question

如何运用宏随机排列PPT里的slides？

比如说我的PPT有100张slides，本来的顺序是1-100这样的，然后我想编写一个宏，让这100张slides的顺序随机打乱，可以实现吗？

Answer 1

楼主研究PPT中的宏，可见已是比较深的功夫了。PPT中的宏似乎不象EXCEL中那么好用，没有那么直观。

1、启用宏（2010版）：开始-->选项-->信任中心-->信任中心设置

2、设置宏：按Alt+F11，再按F1

可以点开目录或查找你的命令。后面的学习就靠你自己了。

追问

虽说磨刀不误砍柴工……可是现在我不能重头学起吧……我需要一个直接点的答案

追答

代码如下：
Sub txtStart()
For i = 1 To 5000
With ActivePresentation.Slides(1)
For j = 1 To 1
With .Shapes("txtNum" & j).TextFrame.TextRange
.Text = Int((50 - 1 + 1) * Rnd + 1)
支持1~100之间自定义，修改X参数即可：Text = Int((X - 1 + 1) * Rnd + 1) #
.Font.Color.RGB = 10000 * Rnd
Debug.Print .Text
End With
Next
End With
DoEvents
Next
End Sub

Sub OnSlideShowTerminate()
Exit For
End Sub

追问

Item txtNum1 not found in the shapes collection是什么意思？
那个 ，我没那么专业，能不能修改成我直接可以用的？就假设有100张幻灯片随机打乱。有测试过吗？或者说我需要修改哪个部分？

追答

直接打开宏，进行编辑。

追问

。。有Q嘛？加一下呗

追答

采纳把。