点击这里查看首页

批量设置PowerPoint字体及行间距——VBA宏


来源:高中英语教学交流
发布时间:2012-10-02 22:42:00
查看次数:

内容提要:在修改PPT时,想修改一下字体格式,试了一下。另外,推荐可以使用 PPT统一字体工具V3.00

    在修改PPT时,想修改一下字体格式,试了一下,Office没发现有直接修改的功能,如果手工修改,我的天!三百多页,卡得要死,只好用VBA宏实现了。代码如下:

Sub ChangeTextFont()
	Set pages = ActivePresentation.Slides.Range
	pageCount = pages.Count

	'第一页和最后一页跳过
	For i = 2 To pageCount - 1
		DoEvents
		ActiveWindow.View.GotoSlide Index:=i
		shapeCount = ActiveWindow.Selection.SlideRange.Shapes.Count

		For j = 1 To shapeCount
			ActiveWindow.Selection.SlideRange.Shapes(j).Select
			shapeType = ActiveWindow.Selection.SlideRange.Shapes(j).Type

			'1  - 自选图形
			'7  - 公式
			'13 - 图片
			'14 - 占位符
			'15 - 艺术字
			'17 - 文本框
			'19 - 表格
			'Debug.Print shapeType
			Select Case shapeType
			Case 1, 14, 17
				Set txtRange = ActiveWindow.Selection.ShapeRange.TextFrame.TextRange
				txtRange.Select

				If txtRange.Text <> "" Then
					'设置字体为宋体, 24号
					With txtRange.Font
						.Name = "宋体"
						.Size = 24
					End With

					'设置段落格式为1.3倍行距
					With txtRange.ParagraphFormat
						.SpaceWithin = 1.3
					End With
				End If
			Case 7, 13, 15
			Case 19
			End Select
		Next j
	Next i
End Sub
另外,推荐可以使用 PPT统一字体工具V3.00 http://blog.sina.com.cn/u/2135968783

相关文章
·excel怎么生成随机数?02-03
·PS对扫描文件去除背景色04-26
·使用光影魔术手修改相片格式教程10-29
·word删除两个字符之间的内容11-29
·摆脱打印机显示打印机脱机困扰01-14
·巧用Excel数组公式统计各班优秀人数04-24
·SQL SERVER数据库中快速找主表11-10
·在Word里用通配符实现特殊替换05-09
·磁带转录成MP3操作方法 09-23
·Excel如何批量插入分页符02-12
最新文章
·视频加速脚本TimerHooker (计时器掌控者)06-17
·[亲测有效]excel批量修改文件名10-29
·Excel随机生成区间数值06-23
·PS如何一键批量裁剪图片?06-02
·微课制作注意事项06-02
·删除 word 中所有的中文字符03-17
·WORD批量插入图片和文件名11-12
·VBA撤销excel工作表保护09-01
·JS 自动答题脚本07-01
·VBA文本类型转换成数值型05-06
阅读排行