MS PPT一键设置全部文本框字体和大小(VBA)

适用于Microsoft PPT 2021版本。

作用：将PPT全部文本框进行字体和字体大小设置。

弊端：执行后会使全部字体被改变，建议在写完ppt后，先执行该脚本，再把局部字体手动调整。

配置参数修改：

.Name用于字体名称修改

.Size用于文字大小修改

.Color.RGB用于配置三原色

Sub PPT一键设置字体和字体大小()
Dim oShape As Shape
Dim oSlide As Slide
Dim oTxtRange As TextRange
On Error Resume Next
For Each oSlide In ActivePresentation.SlidesFor Each oShape In oSlide.ShapesSet oTxtRange = oShape.TextFrame.TextRangeIf Not IsNull(oTxtRange) ThenWith oTxtRange.Font.Name = "宋体"       '更改为需要的字体.Size = 16       '改为所需的文字大小.Color.RGB = RGB(Red:=0, Green:=0, Blue:=0) '改成想要的文字颜色，用RGB参数表示。这里代表黑色End WithEnd IfNextNext
End Sub

MS PPT一键设置全部文本框字体和大小(VBA)相关推荐

设置adobe reader pro的文本框字体属性
注意: 这里是设置注释文本框中字体的大小和颜色等属性, 不是修改adobe文档中的字体的东西 1. 选中一个文本框(没有的话新建一个就行了啊) 2. Ctrl+E, 出来文本框属性工具栏 3. 双击文 ...
html怎么设置椭圆文本框,怎么用PPT制作椭圆形的文本框 PPT椭圆形文本框设置教程...
在使用PPT软件的过程中,如果我们想用PPT制作椭圆形的文本框,如何制作?方法很简单,下面教程之家网为大家带来PPT椭圆形文本框的设置教程,不会制作的朋友可以参照教程尝试下. 怎么用PPT制作椭圆形的 ...
关于驰骋表单引擎中字段扩展设置对文本框Pop窗体返回值的升级说明 2012/11/13...
为什么80%的码农都做不了架构师?>>> 关于驰骋表单引擎中字段扩展设置对文本框Pop窗体返回值的升级说明 2012/11/13 现有功能: 以前版本仅支持自己定义url,返回 ...
html input文本框样式,css设置input文本框样式代码实例_html/css_WEB-ITnose
css设置input文本框样式代码实例: 使用css设置input元素的样式是最为常用的操作之一,当然也是最为基础的操作,可能对于刚刚接触css的朋友还不够熟悉,下面就通过一段简单的代码历史演示一下如 ...
如何设置textarea文本框中的内容为只读不可修改状态
设置<textarea>文本框中的内容为只读不可修改状态,只需要加入disabled或readonly即可 <textarea name="qualification&qu ...
js点击按钮改变字体大小并给他颜色_如何在Elementor中修改文本的字体、大小、颜色、样式...
本文将介绍Elementor网页编辑器中如何修改文本的字体.大小.颜色和样式. 原文首发于:https://loyseo.com/how-to-change-font-size-color-famil ...
CSDN-Mardown-改变文本的字体、大小、颜色、背景色、对齐
CSDN-Mardown-改变文本的字体.大小.颜色.背景色.对齐 1.改变文本字体代码举例: <font face="宋体">这是宋体</font> & ...
python使用matplotlib可视化、使用fontsize参数设置单个图像的字体的大小、使用rcParams.update参数全局设置字体的大小（font size）
python使用matplotlib可视化.使用fontsize参数设置单个图像的字体的大小.使用rcParams.update参数全局设置字体的大小(font size) 目录
VC 设置静态文本框透明背
HBRUSH CClientDlg::OnCtlColor(CDC* pDC, CWnd* pWnd, UINT nCtlColor) { HBRUSH hbr = CDialog::OnCtlCo ...

MS PPT一键设置全部文本框字体和大小(VBA)

MS PPT一键设置全部文本框字体和大小(VBA)相关推荐

最新文章

热门文章