如何用ppt制作随机抽取

制作随机抽取可以使PPT更加生动有趣，我们可以通过PPT自带的功能来实现。以下是操作流程：

1. 首先，打开PPT软件，进入“插入”选项卡，点击“形状”按钮，选择一个图形作为可点击的按钮。

2. 将图形复制多份，每个图形写上不同的数字或者字母，这些将会被随机抽选到。

3. 在“开发工具”选项卡中，点击“宏”按钮，弹出新窗口，选择“新建”。

4. 在代码编辑器里，输入如下代码：

Sub RandomSelect() Dim index As Integer index = Int(Rnd * ActivePresentation.Slides(1).Shapes.Count) + 1 ActivePresentation.Slides(1).Shapes(index).Select End Sub

代码中的“Slides(1)”代表第一张幻灯片，如果你需要在多个幻灯片中进行随机抽选，需要更改对应数字即可。

5. 点击“保存”按钮，起个名字保存。

6. 回到幻灯片中，在刚才选择的按钮图形上右键选择“分配宏”，在下拉框中找到你刚才保存的宏，选择并保存。

7. 点击“视图”选项卡，选择“幻灯片放映”，测试一下随机抽取是否可以正常运行。

通过以上步骤，我们就可以轻松制作一个随机抽取PPT。使用时只需要在展示PPT过程中点击按钮随机抽取的功能即可，可以让PPT更加生动有趣。

ppt如何制作随机抽取名字

为了在PPT中制作随机抽取名字的功能，你需要了解两个主要的步骤：第一步是将名字列表输入PPT，第二步是在PPT中使用随机函数，来随机抽取名字。

第一步：将名字列表输入PPT

首先，你需要在PPT中创建一个文本框，命名为“名字列表”。然后，你可以选择复制粘贴一份名字列表，或手动输入名字。输入完毕后，需要将每个名字分别放在一行上，这样在后面抽取名字时，在同一行上就只会出现一个名字。

第二步：使用随机函数抽取名字

接下来，你需要使用随机函数在PPT中抽取名字。在PPT中，选择你希望抽名字出来的位置（比如一页PPT，左上角），然后按下快捷键“Alt+F11”，打开Visual Basic Editor。

在Visual Basic Editor中，你需要在代码区域中输入以下代码：

``` Sub Shuffle()

Dim num As Integer Dim arr() As Variant Dim i As Integer, j As Integer Dim temp As Variant Dim counter As Integer

'define the number of names num = 10

'redefine the range as a matrix of size num x 1 with values from the Names column arr = Application.WorksheetFunction.Index(ActivePresentation.Slides(1).Shapes("NameList").TextFrame.TextRange, 0, 1)

'shuffle the names counter = num - 1 For i = counter To 1 Step -1 j = Int(Rnd() * (i + 1)) temp = arr(i, 1) arr(i, 1) = arr(j, 1) arr(j, 1) = temp Next i

'display the results MsgBox "And the winner is: " & arr(1, 1)

End Sub ```

上述代码使用了VBA中的Rnd函数（随机函数），将名字列表进行随机排序，最后输出随机抽取的名字。你可以根据需要修改代码中的num值，以确定要抽取的名字数量。

接下来，保存好代码，并退出Visual Basic Editor。然后回到PPT，并选中你希望显示抽取的名字的位置（比如刚才选的左上角），键入“Ctrl+M”，打开添加动作框，选择“运行宏”，并选择你刚才编写的宏。

现在，你已经成功地在PPT中制作了“随机抽取名字”的功能，可以通过点击指定位置运行宏来使用该功能。

ppt如何制作随机抽取图片

制作ppt随机抽取图片，我们需要使用两个工具：PowerPoint和Excel。

1. 在Excel中输入图片列表。

首先我们需要在Excel表格中输入我们要抽取的图片名称或者路径，可以按任意顺序排列，如下图所示。

2. 为Excel表格中的图片添加链接。

选中Excel表格中的图片名称，右键选择“链接”，再在“链接到”中选择“文件”，并打开对应的图片文件，然后点击“确定”，完成图片和它的链接的绑定，如下图所示。

3. 在PowerPoint中插入Excel表格。

在PowerPoint中创建一个新的幻灯片，并插入前面创建好的Excel表格，如下所示。

4. 在PowerPoint中设置“宏”。

在PowerPoint中，我们需要先打开“开发人员”选项卡。选择“文件” -> “选项” -> “自定义功能区” -> 勾选“开发人员”后，点击“确定”即可。

接下来，我们需要在PowerPoint中设置一个“宏”，具体操作步骤如下：

点击“开发人员”选项卡中的“宏”，如下所示。

在打开的“宏”编辑窗口中输入下面的代码：

Sub randomPick() Dim randomrow As Integer Dim table As Object Set table = ActivePresentation.Slides(1).Shapes("Table 4").Table randomrow = Int((table.Rows.Count) * Rnd() + 1) ActivePresentation.Slides(1).Shapes("Table 4").Table.Rows(randomrow).Cells(1).Shape.Fill.UserPicture _ filenamewithpath:=table.Rows(randomrow).Cells(2).Shape.LinkFormat.SourceFullName End Sub

注：代码中表格名称以及单元格范围需要根据实际情况进行更改。

5. 在PowerPoint中创建按钮。

我们需要在PowerPoint中创建一个按钮，用于触发“宏”的执行。具体操作步骤如下：

选择“开发人员”选项卡中的“插入”，在“表格和选择框”下选择“形状” -> 矩形，如下所示。

在“新建形状”中选择矩形，然后在幻灯片中绘制一个矩形按钮。

在矩形按钮上添加文本，如“随机抽取一张图片”。

6. 为按钮添加宏。

选中刚才创建的按钮，在“开发人员”选项卡中选择“属性”，将“宏”设置为我们刚才创建的“randomPick”宏，如下所示。

7. 运行随机抽取图片的“宏”。

点击刚才创建的按钮，“宏”即可开始执行。每次点击按钮，都会随机抽取Excel表格中的一张图片，显示在PowerPoint幻灯片中，如下图所示。

至此，我们已经实现了通过PowerPoint随机抽取Excel表格中的图片的效果。