PPT实现单页点名的方式

安装OK控件来实现，网上有很多资源，介绍很详细，不赘述。不爽的地方就是还要控件
通过PPT 开发工具中的控件来实现

1）office默认是没有把“开发工具”显示出来的。我们可以要把它先显示出来。依次点击文件-> 选项->自定义功能区中勾选开发工具。如图：

2）选取开发工具中的命令按钮（CommandButton），添加到PPT页面中。如图：

3）双击CommandButton1，进入VBA界面下的控件回调函数Sub CommandButton1_Click()

4）在CommandButton1_Click内添加代码

Private Sub CommandButton1_Click()Randomize
Dim a() As Variant
a = Array("1", "2", "3", "4", "5", "6", "7", "8")
Dim i As Integer
i = Int(8 * Rnd)
CommandButton1.Caption = a(i)
End Sub

5) 修改控件的属性，即，更新控件名字的字体、大小，美化控件。该步骤通过右键在“属性表”中更改。如图：

通过PPT 开发工具中的模块来实现

遗憾的是没有在mac系统中找到PPT的控件，被逼无奈通过该方式实现

1）在开发工具里边打开VBA界面，插入模块

2）在模块1中添加如下代码，其中OnSlideShowPageChange函数感兴趣的可以深入了解一下，这个是幻灯片放映页面切换时的回调函数

Sub OnSlideShowPageChange()
'最后插入需要更新的文本框
Dim LastShape As Integer
Dim SlideID As Integer '幻灯片页码
SlideID = 2
LastShape = ActivePresentation.Slides(SlideID).Shapes.Count
ActivePresentation.Slides(SlideID).Shapes(LastShape).DeleteRandomize
Dim a() As Variant
a = Array("1", "2", "3", "4", "5", "6", "7", "8")
Dim i As Integer
i = Int(8 * Rnd)With ActivePresentation.Slides(SlideID)With .Shapes.AddTextbox(msoTextOrientationHorizontal, 800, 350, 450, 100).TextFrame.TextRange.Font.Color = vbRed.TextFrame.TextRange.Font.Size = 38.TextFrame.TextRange.Text = a(i)End WithEnd With
End Sub

3）在当前页PPT中增加一个超链接指向本页PPT。

注：制作PPT的时候，最后添加点名模块的文本框

以上！

PPT实现单页点名的方式相关推荐

python+win32com分割多页ppt为单页多文件
1st.安装win32com ***pip install pypiwin32*** python通过我win32com模块可以使用Windows系统上的应用,具体使用可以通过OLEViewer进行查 ...
使用 Vue + Flask 搭建单页应用
单页应用,只加载一个主页面,然后通过 AJAX 无刷新加载其它页面片段.表面上看,就只有一个 HTML 文件,所谓单页.开发上,做到了前后端分离,前端专注于渲染模板,而后端只要提供 API 就行,不用 ...
【网站架构】为什么我的单页应用这么慢，打开页面需要几分钟？怎样才能用好单页应用？现阶段把整个项目做成一个单页应用真的可行？单页应用的工作原理是什么？
传统的网站会不断跳转页面, 例如单击搜索后会跳转页面,单击翻页后会跳转页面, 而一旦出现跳转页面,用户就需要等待重新加载页面后才能继续操作. 为了改进这种糟糕体验,单页应用的概念逐渐流行, 单页应用指 ...
DouPHP如何在一个页面调用多个单页的内容
需求:在导航栏中点击"关于我们"(单页)中的下一级导航跳转到一个页面的对应位置.也就是需要在同一个页面调用多个单页的内容. 首先想到的是通过锚链接,跳转到对应位置.但是如何才能够在 ...
用微前端的方式搭建类单页应用
前言微前端由ThoughtWorks 2016年提出,将后端微服务的理念应用于浏览器端,即将 Web 应用由单一的单体应用转变为多个小型前端应用聚合为一的应用. 美团已经是一家拥有几万人规模的大型互 ...
Java/poi/ppt操作 — 复制ppt单页放置在指定位置
1. 需求使用模板页复制一份一模一样的页面放在指定位置 2.代码 /*** 复制ppt单页* @param template 模板页* @param ppt ppt* @param index 复制 ...
中望CAD图纸的单页和批量pdf打印方式
1 单页打印 1.1 选择打印 1.2 选择pdf打印机,并点击选择打印区域 1.3 在窗口中框选打印区域 1.4 框选完毕,跳回到对话框.选择预览,或者直接确定. 1.5 点击"确定&qu ...
单页应用的优缺点_单页和多页应用程序之间的优缺点
单页应用的优缺点 Currently, there are two ways of building websites: as multi-page applications (MPAs) or as ...
为什么使用单页应用_为什么我讨厌您的单页应用
为什么使用单页应用 by Stefan Tilkov 斯蒂芬·蒂尔科夫(Stefan Tilkov) 为什么我讨厌您的单页应用 (Why I hate your Single Page App) Ok ...
七天学会ASP.NET MVC（七）——创建单页应用
目录引言最后一篇学什么实验32-整理项目组织结构关于实验32 实验33--创建单页应用--第一部分-安装什么是Areas? 关于实验33 实验34--创建单页应用--第二部分-显示Emplo ...

PPT实现单页点名的方式

安装OK控件来实现，网上有很多资源，介绍很详细，不赘述。不爽的地方就是还要控件

通过PPT 开发工具中的控件来实现

通过PPT 开发工具中的模块来实现

PPT实现单页点名的方式相关推荐

最新文章

热门文章