ppt抽取名字怎么做（ppt抽取名字怎么做好看）



1、ppt抽取名字怎么做

PPT抽取名字方法

在PPT中进行抽取名字时，可以使用以下步骤：

1. 插入互动元素：在幻灯片中插入文本框，并将其更改为“输入框”类型。

2. 设置输入框属性：单击文本框，在“属性”选项卡中，将“允许编辑”设置为“是”。

3. 收集姓名：要求参与者在输入框中输入他们的姓名。

4. 保存姓名：将幻灯片另存为可编辑格式（例如pptx），以便以后保存姓名数据。

5. 提取姓名：使用VBA代码从PPT中提取姓名数据。具体代码如下：

vba

Sub ExtractNames()

Dim ppt As Presentation

Dim oShp As Shape

Dim strNames As String

Set ppt = Application.ActivePresentation

For Each oShp In ppt.Slides(1).Shapes

If oShp.Type = msoTextBox Then

strNames = strNames & oShp.TextFrame.TextRange & vbLf

End If

Next oShp

MsgBox strNames

End Sub

6. 运行VBA代码：按Alt+F11打开VBA编辑器，将上述代码粘贴到模块中，然后运行代码。姓名将显示在弹出窗口中。

注意事项：

输入框应显示在幻灯片上。

更改幻灯片的类型（例如，从pptx转换为ppsx）可能会丢失姓名数据。

请确保VBA代码在您的PPT版本中可用。

2、ppt抽取名字怎么做好看

PPT抽取名字技巧提升美观度

在制作PPT时，抽取名字往往需要将其单独展示。为了提升美观度，可以采用以下技巧：

1. 字体选择：

选择优雅易读的字体，如宋体、楷体、微软雅黑等。避免使用笔画复杂的字体，以免影响辨识度。

2. 字号搭配：

根据抽取名字的重要性，搭配不同的字号。例如，主标题可以使用较大的字号，而副标题和可以使用较小的字号。字号搭配要协调一致，避免过大或过小。

3. 颜色搭配：

抽取名字的颜色应与PPT整体风格相匹配。一般建议使用与背景色对比鲜明的颜色，如白色背景配黑色字体或黑色背景配白色字体。避免使用过多的颜色，以免分散注意力。

4. 框线设计：

为抽取名字添加框线可以增强视觉效果。框线的颜色和粗细要与字体和背景色协调。还可以根据需要使用圆角边框或其他特殊形状边框。

5. 背景填充：

为抽取名字添加背景填充可以提升层次感。背景填充的颜色应与字体颜色形成对比，避免使用过于花哨的背景图案。

6. 特殊效果：

可以使用一些特殊效果来美化抽取的名字，如阴影、发光、渐变等。但要注意不要过度使用，以免喧宾夺主。

7. 版式布局：

抽取名字的版式布局要合理美观。可以将其居中、居左或居右，并根据需要调整行距和字间距。

示例：

下图展示了一个美观的PPT抽取名字示例：

[展示抽取名字示例]

字体：微软雅黑

字号：标题36px，副标题24px

颜色：标题黑色，副标题灰色

框线：白色圆角边框

背景填充：浅灰色

效果：标题添加阴影效果

通过以上技巧，可以有效提升PPT抽取名字的美观度，使PPT更加引人注目和专业。

3、ppt抽取名字怎么做出来

PPT 抽取名字的步骤

在 PowerPoint 中抽取幻灯片上的姓名非常简单，只需按照以下步骤操作：

1. 选择幻灯片：选择包含要抽取姓名的幻灯片。

2. 插入文本框：在“插入”选项卡中，选择“文本框”。在幻灯片上绘制文本框。

3. 输入名称：在文本框中输入姓名列表，每行一个姓名。

4. 添加宏：接下来，需要添加一个宏来执行抽取过程。进入“开发工具”选项卡，然后单击“Visual Basic”。

5. 创建新模块：在 VBA 编辑器中，点击“插入”>“模块”。

6. 粘贴以下代码：将以下代码粘贴到新模块中：

```

Sub ExtractNames()

Dim ppt As PowerPoint.Application

Set ppt = CreateObject("PowerPoint.Application")

Dim pres As PowerPoint.Presentation

Set pres = ppt.ActivePresentation

Dim slide As PowerPoint.Slide

Set slide = pres.Slides(1)

Dim shapes As PowerPoint.Shapes

Set shapes = slide.Shapes

Dim i As Long

Dim txt As PowerPoint.Shape

For i = 1 To shapes.Count

If shapes(i).HasTextFrame Then

Set txt = shapes(i)

With txt.TextFrame

MsgBox .Text

End With

End If

Next i

MsgBox "提取完成！"

End Sub

```

7. 运行宏：从 VBA 编辑器返回到 PowerPoint，然后按 F5 键运行宏。

8. 结果：宏将遍历幻灯片上的所有文本框，并弹出包含所选名称的对话框。

完成这些步骤后，您就会成功地从 PPT 幻灯片中抽取所有姓名。

4、如何用ppt制作抽奖名字

如何使用 PPT 制作抽奖名字

材料：

Microsoft PowerPoint

抽奖名单（文本文件或电子表格）

步骤：

1. 创建幻灯片：新建一个 PowerPoint 演示文稿，添加一张幻灯片。

2. 插入文本框：在幻灯片上插入一个文本框，输入"抽奖名单"。

3. 导入名单：点击文本框，选择"插入"选项卡中的"对象"。在"对象"对话框中，选择"从文件创建"，然后选择要导入的抽奖名单文件。

4. 格式化名单：确保抽奖名单中的每个名字都单独出现在一行中。如果名单中有标题或其他不需要的信息，将其删除。

5. 设置动画：选择文本框，在"动画"选项卡中添加一个随机动画效果（例如，"缩放"或"浮动"）。这将使名字在幻灯片上随机出现。

6. 设置触发器：在"触发器"选项卡中，将动画触发器设置为"单击"。这样，当您单击幻灯片时，就会随机显示一个名字。

7. 保存演示文稿：将 PowerPoint 演示文稿另存为所需的格式（例如，PPTX 或 PDF）。

使用演示文稿：

1. 打开演示文稿：打开保存的 PowerPoint 演示文稿。

2. 进入幻灯片放映：按 F5 开始幻灯片放映。

3. 单击幻灯片：单击幻灯片后，将随机显示一个名字。

4. 重复：继续单击幻灯片以随机显示更多名字，直到所有名字都被抽取出来。