PPT模版分享：仿聊天机器人PPT

fanjy

发布于 2023-08-30 08:41:30

5300

文章被收录于专栏：完美Excel完美Excel

标签：VBA，PowerPoint编程

利用PPT，再加上一点点VBA，我们可以做很多超出你预料的事。这里，使用PPT创建了一个仿聊天机器人，提出问题，然后用户可以在其中回答问题。如下图1所示。

图1

正如上图1所演示的，这个PPT很简单，只用了两张幻灯片，一张是封面，另一张提出问题并供用户来回答问题。

在后台驱动幻灯片效果的VBA代码也很简单，代码如下：

Dim Q(4) As String
Dim A(3) As String
Dim query As Shape
Dim x As Integer

Sub StartGame()
 Database
 query.TextFrame.TextRange = Q(1)
 SlideShowWindows(1).View.Next
End Sub

Sub Database()
 x = 0
 Set query = ActivePresentation.Slides(2).Shapes("query")
 Q(1) = "白鹤滩大坝有多高?"
 Q(2) = "中国的首都是哪里?"
 Q(3) = "三峡工程的总装机容量?"
 Q(4) = "感谢你的回答!"
 A(1) = "289米"
 A(2) = "北京"
 A(3) = "22500MW"
End Sub

Sub EvaluateA()
 x = x + 1
 If UCase(reply.Value) = UCase(A(x)) Then
   query.TextFrame.TextRange = "正确!" & vbCrLf & Q(x + 1)
 Else
   query.TextFrame.TextRange = "错误! " & vbCrLf & Q(x + 1)
 End If
 reply.Value = ""
End Sub

你可以结合你的实际情况修改程序代码在聊天机器人中自定义的问题和所需答案。

这个PPT模版来自pptvba.com，有兴趣的朋友可以到原网站下载。

本文参与腾讯云自媒体同步曝光计划，分享自微信公众号。

原始发表：2023-08-21，如有侵权请联系 cloudcommunity@tencent.com 删除

vba