ppt调整三级标题的位置
---恢复内容开始---
标题格式：一级标题 中文数字加、例如 一、
二级标题 中文数字加： 例如二：
三级标题 小写数字加、 例如3、
使用方法： 打开PPT 按alt+f11，打开vb编辑框，选择插入模块
把代码复制进去按F5就ok了
代码如下
Sub Change()
Dim s As Slide
Dim shp As Shape
Dim trng As TextRange
Dim i As Integer
Dim JudgeBit '判断的位数
JudgeBit =
'Slides.Shapes(1).AddShape(msoShapeRectangle, 0, 0, 250, 140).TextFrame ' Slides.Shapes(1).TextFrame.TextRange.Characters.Text = "文sadasd字"
' /* 遍历活动窗口中打开的演示文稿中的幻灯片. */
For Each s In ActivePresentation.Slides
' /* 遍历当前幻灯片中的形状对象. */
For Each shp In s.Shapes
' /* 当前幻灯片中的当前形状含有文本框架. */
If shp.HasTextFrame Then
' /* 当前幻灯片中的当前形状包含文本. */
If shp.TextFrame.HasText Then
' 引用文本框架中的文本. Set trng = shp.TextFrame.TextRange
For i = To JudgeBit 'trng.Characters.Count
'判断是否为大标题 格式是 一、
If trng.Characters(i).Text = "一" _
Or trng.Characters(i).Text = "二" _
Or trng.Characters(i).Text = "三" _
Or trng.Characters(i).Text = "四" _
Or trng.Characters(i).Text = "五" _
Or trng.Characters(i).Text = "六" _
Or trng.Characters(i).Text = "七" _
Or trng.Characters(i).Text = "八" _
Or trng.Characters(i).Text = "九" _
Or trng.Characters(i).Text = "十" _
Then
If (trng.Characters(i + ).Text = "、") Then
i = JudgeBit
'设置字体格式
trng.Font.NameFarEast = "微软雅黑" '设置中文字体
trng.Font.Name = "微软雅黑" '设置英文字体
trng.Font.Size = ""
trng.Font.Color.RGB = RGB(Red:=, Green:=, Blue:=) '文本框在当页的位置
shp.Top =
shp.Left = '设置文本属性
With shp
.TextFrame.HorizontalAnchor = msoAnchorNone
.TextFrame.MarginTop = '字体在边框中的位置
.TextFrame.MarginBottom =
.TextFrame.MarginLeft =
.TextFrame.MarginRight =
.TextFrame.VerticalAnchor = msoAnchorMiddle '设置垂直对齐方式
.TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignLeft '设置对齐方式 'shp.TextFrame.Orientation '设置文本框方向
'shp.TextFrame.WordWrap '自动换行 End With
'判断二级标题
ElseIf (trng.Characters(i + ).Text = "：") Then
i = JudgeBit 'trng.Characters.Count
'设置字体格式
trng.Font.NameFarEast = "微软雅黑" '设置中文字体
trng.Font.Name = "微软雅黑" '设置英文字体
trng.Font.Size = ""
trng.Font.Color.RGB = RGB(Red:=, Green:=, Blue:=) '文本框在当页的位置
shp.Top =
shp.Left = '设置文本属性
With shp
.TextFrame.HorizontalAnchor = msoAnchorNone
.TextFrame.MarginTop = '字体在边框中的位置
.TextFrame.MarginBottom =
.TextFrame.MarginLeft =
.TextFrame.MarginRight =
.TextFrame.VerticalAnchor = msoAnchorMiddle '设置垂直对齐方式
.TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignLeft '设置对齐方式 'shp.TextFrame.Orientation '设置文本框方向
'shp.TextFrame.WordWrap '自动换行
End With
End If '判断三级标题 格式是 1.
ElseIf trng.Characters(i).Text = "" _
Or trng.Characters(i).Text = "" _
Or trng.Characters(i).Text = "" _
Or trng.Characters(i).Text = "" _
Or trng.Characters(i).Text = "" _
Or trng.Characters(i).Text = "" _
Or trng.Characters(i).Text = "" _
Or trng.Characters(i).Text = "" _
Or trng.Characters(i).Text = "" _
Or trng.Characters(i).Text = "" _
Then If (trng.Characters(i + ).Text = "、") Then
i = JudgeBit
'设置字体格式
trng.Font.NameFarEast = "微软雅黑" '设置中文字体
trng.Font.Name = "微软雅黑" '设置英文字体
trng.Font.Size = ""
trng.Font.Color.RGB = RGB(Red:=, Green:=, Blue:=) '文本框在当页的位置
shp.Top =
shp.Left = '设置文本属性
With shp
.TextFrame.HorizontalAnchor = msoAnchorNone
.TextFrame.MarginTop = '字体在边框中的位置
.TextFrame.MarginBottom =
.TextFrame.MarginLeft =
.TextFrame.MarginRight =
.TextFrame.VerticalAnchor = msoAnchorMiddle '设置垂直对齐方式
.TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignLeft '设置对齐方式 'shp.TextFrame.Orientation '设置文本框方向
'shp.TextFrame.WordWrap '自动换行
End With
End If
Else
trng.Font.NameFarEast = "黑体" '设置中文字体
trng.Font.Name = "黑体" '设置英文字体
End If Next
' /* 遍历文本框架中的每一个字符. */ End If
End If
Next
Next
End Sub
效果
---恢复内容结束---
ppt调整三级标题的位置的更多相关文章
- C#_Excel数据读取与写入_自定义解析封装类_支持设置标题行位置&使用excel表达式收集数据&单元格映射&标题映射&模板文件的参数数据替换
本篇博客园是被任务所逼,而已有的使用nopi技术的文档技术经验又不支持我需要的应对各种复杂需求的苛刻要求,只能自己造轮子封装了,由于需要应对很多总类型的数据采集需求,因此有了本篇博客的代码封装,下面一 ...
- StringGrid 实例4 本例功能: 1、给每个单元格赋值 2、调整当前单元格位置：上下左右；
实例4 本例功能:1.给每个单元格赋值 2.调整当前单元格位置:上下左右: 运行效果图:
- LinearLayout的gravity属性以及其子元素的layout_gravity何时有效；RelativeLayout如何调整其子元素位置只能用子元素中的属性来控制，用RelativeLayout中的gravity无法控制！！！
LinearLayout的gravity属性以及其子元素的layout_gravity何时有效:RelativeLayout如何调整其子元素位置只能用子元素中的属性来控制,用RelativeLayou ...
- LaTeX 中使用三级标题
需要在导言区加入命令:\setcounter{secnumdepth}{4} 而后: \section{一级标题} \subsection{二级标题} \subsubsection{三级标题}
- Windows 系统上用 .NET/C# 查找所有窗口，并获得窗口的标题、位置、尺寸、最小化、可见性等各种状态
原文:Windows 系统上用 .NET/C# 查找所有窗口,并获得窗口的标题.位置.尺寸.最小化.可见性等各种状态 在 Windows 应用开发中,如果需要操作其他的窗口,那么可以使用 EnumWi ...
- 导出目录的JS代码，与目录的三级标题测试
二级标题 三级标题 三级标题 三级标题 三级标题 三级标题 二级标题 三级标题 三级标题 三级标题 三级标题 三级标题 这里是现在页尾目录功能的代码源码: <!-- 目录索引列表生成 --> ...
- Office WPS PPT如何微量调整文本框的位置
按住Alt键,用鼠标拖动文本框即可以进行微调.
- UIToolbar 如何调整里面的按钮位置
可以在Bar Button Item后面填个Fixed Space Bar Button Item 或者Flexible Space Bar Button Item,然后再在后面加上下一个Bar Bu ...
- iOS开发项目之四 [ 调整自定义tabbar的位置与加号按钮的位置]
自定义tabbar与按钮的添加 01 - 把系统的tabbar用我们自己的覆盖 LHQTabBar *lhqTabBar = [[LHQTabBar alloc]init]; [self setVal ...
随机推荐
- 关于Mysql-unknow-column-in-where-clause
写在前边: 已经很久不更新了啊,整个2月份几乎没有遇到什么新鲜事.直到昨天我又犯了一次傻,貌似只有我犯傻的时候才有材料可以跟大家分享- 问题表现: mysql 报错: unknow column 's ...
- Javascript-基本类型
数字 JavaScript不区分整数和浮点数,所有数字都用浮点数表示. 能够表示最大值是 -253 ~ 253,包含边界.超过范围的数无法保证低位数字的精度. JavaScript能直接识别十进制的整 ...
- Ionic4.x Modal模态对话框以及 Modal 传值
1.Modal 模态对话框简介 官方文档:https://ionicframework.com/docs/api/modal Modal模态对话框主要用于登录注册页面,我们可以把它理解为从页面底部弹出 ...
- Scala 踩坑系列
scala List scala list 如果使用 list(i)的形式进行遍历,如果list数据太多,每次遍历耗时会很久. 因为有一个 head tail 的概念 . 和java的List根据角标 ...
- 123457123457#0#-----com.yuming.YiZhiFanPai01--前拼后广--益智早教游戏记忆翻牌cym
com.yuming.YiZhiFanPai01--前拼后广--益智早教游戏记忆翻牌cym
- CYLTabBarController的简单使用
#pragma mark- 登录成功跳转至主页 -(void)jumpToMainVC { [UIApplication sharedApplication].statusBarStyle = UIS ...
- HTML(HTML+CSS基础)
HTML: 认识html文件基本结构 这一节中我们来学习html文件的结构:一个HTML文件是有自己固定的结构的. <html> <head>...</head> ...
- 如何调试Maven软件的源代码
和调试maven插件方法一样 修改maven源代码 打包模块apache-maven,生成apache-maven-x.x.x-bin.tar.gz 解压上面的压缩包,生成目录apache-maven ...
- Docker 容器资源隔离 namespace(十)
目录 一.简介 Linux Namespace的6大类型 二.Mount Namespace 三.IPC Namespace 四.Network Namespace 五.UTS Namespace 六 ...
- 分布式消息通信之RabbitMQ_Note
目录 1. RabbitMQ 安装 2. RabbitMQ 应用场景,特性 3. 官网入门指引 4. RabbitMQ 工作模型 5. RabbitMQ 主要的几种交换机类型 6. Java API的 ...