批量设置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
- 相关文章
- ·ASP获取真正的IP地址 兼容代理服务器02-09·Windows 7将数据保存为虚拟磁盘文件11-22·将纸质版文字材料转为电子版12-23·免魔法使用 New Bing 新方案03-18·隐藏Excel错误结果显示的三种方法10-12·EXCEL输入的技巧08-11·解决Win8 IE浏览器某些网站显示不全01-30·出于安全原因,Firefox 取消了该请求03-22
- 最新文章
- ·十秒免工具激活windows 1002-25·批量替换word文档中的第一行作为文件的文件名06-21·连接打印机时需要输入用户名密码怎么办?05-15·免魔法使用 New Bing 新方案03-18·Win10电脑账号密码设置、修改、取消12-06·[亲测有效]excel批量修改文件名10-29·Excel随机生成区间数值06-23
- 阅读排行
- ·如何让试题的ABCD选项对齐04-13·word排版技巧整理08-02·word 如何自动生成目录08-02·不同电脑文件字体改变了的解决方法12-15·Excel 进行学生成绩统计分析03-13·我的电脑图标不见了,怎么找回来!09-14·Win10电脑的一些安装提示12-03·Word高级替换技巧03-05·Excel如何批量插入分页符02-12·制作Word2003选择性粘贴快捷键07-09
2008-2024 | www.zshunj.cn |www.yykz.net
点击这里识别二维码关注公众号
点击这里识别二维码关注公众号