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 ...
随机推荐
- Matlab图像处理——中值滤波medfilt2问题解决
本文链接:https://blog.csdn.net/Pxzly1117/article/details/79201772程序: I=imread('13.jpg');%读入图像imshow(I);h ...
- 相关 Excel 开源类库性能对比
性能数据 · Excelize 中文文档https://xuri.me/excelize/zh-hans/performance.html Golang library for reading and ...
- PM2用法简介【命令行启动 --env 参数设置使用问题】
环境切换 正式开发中分为不同的环境(开发环境.测试环境.生产环境),我们需要根据不同的情景来切换各种环境 pm2通过在配置文件中通过env_xx来声明不同环境的配置,然后在启动应用时,通过--env参 ...
- python 设计模式之中介者模式
#先啰嗦一下 至少半个多月的样子没写博客了,月初去了趟黄山,赏了美景,自然没时间也没条件敲博客了,一个多星期就这么过去了.返回深圳后,工作积压了一堆,然后白天就马不停蹄的忙工作,晚上回家伺候小娃,又想 ...
- redis配置文件讲解
#redis.conf # Redis configuration file example. # ./redis-server /path/to/redis.conf ############### ...
- IO流概述
作用: 处理设备之间的数据传输的 I: Input(输入) , O: Output(输出) 什么是输入和输出? 我们说输入和输出问题是站在内存的角度而言 , 如果我们程序读取硬盘上的数据那么就是输入 ...
- Qwidget::update
void QWidget::update ()分析重绘事件激活 1看看手册中这段话 void QWidget::update () [slot] Updates the widget unless u ...
- 教你如何在linux上装逼，shell中颜色的设置
linux启动后环境变量加载的顺序为:etc/profile → /etc/profile.d/*.sh → ~/.bash_profile → ~/.bashrc → [/etc/bashrc] 想 ...
- SM30维护视图屏蔽按钮
标准维护视图 GUI状态 ESLG 编辑按钮 AEND 达到效果 DATA: l_act TYPE char1, l_name TYPE dd02v-tabname. DATA: lt_vimex ...
- vmware安装centos7.5、配置网卡、环境配置
1.vmware安装centos7.5虚拟机 参考连接: https://blog.csdn.net/guo_ridgepole/article/details/78973763 可能遇到的问题 ...