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 ...
随机推荐
- 【转】nodejs获取post请求发送的formData数据
前端post请求发送formData的类型数据时,需要服务端引入中间件body-parser,主要原因是post请求发送的数据,是在http的body里面,所以需要进行解析,否则获取不到数据(数据为空 ...
- Java工作笔记：工作中使用JNA调用C++库的一些细节（转载）
版权声明:本文为博主原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明.本文链接:https://blog.csdn.net/zjutzmh/article/detai ...
- （十八）JDBC优化使用（一）
一.将增删改方法合并,优化代码 第十七篇的UserPOImpl.java类代码可以进行优化,因为增删改方法用的都是同一种执行方法executeUpdate(),对十七篇的例子进行优化如下: 2.1 搭 ...
- php关于文件上传的两个配置项说明
; Maximum allowed size for uploaded files.; http://php.net/upload-max-filesizeupload_max_filesize = ...
- Spring Cloud(8)：日志及分布式跟踪（Sleuth&Zipkin）
简介 在微服务架构中,项目中前端发起一个请求,后端可能跨几个服务调用才能完成这个请求.如果系统越来越庞大,服务之间的调用与被调用关系就会变得很复杂,那么这时候我们需要分析具体哪一个服务出问题了就会显得 ...
- Spring Boot中在程序中获得application.properties中的值
方法是使用@Value注解的方式注解一个值. 首先,在我们的application.properties中添加一个值如下: zifeiy.tmpfile.location=D:/duty 然后在我们的 ...
- 点击链接,取得href的值,但是不转向
点击链接,取得href的值,但是不转向 $('.list a').click(function (e) { e.preventDefault();//取消事件的默认动作. $.ajax({ ...
- Docker 镜像的推送(六)
目录 一.为镜像命名 二.推送到官方 Docker Hub 1.首先得在 Docker Hub 上注册一个账号. 2.在 Docker Host 上登录 3.修改镜像命名 4.镜像上传 5.登录查看上 ...
- Mybatis使用Spring data Pageable的方法
引言 可能这个用法是个邪教了...但是简单说这都是历史缘故,貌似是项目最初用JPA后面还是换Mybatis了,我接手时候看着那个写好的Controller层觉得换了怪可惜的,就沿用了.网上找找,提供的 ...
- jqGrid获取展示的所有行id集合
$("#jqGrid").getDataIDs();