朋友不知从哪里弄来一个三百多页的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
分享到:
相关推荐
操作PowerPoint文档.zip源码EXCEL VBA宏编程Excel VBA实用技巧范例下载操作PowerPoint文档.zip源码EXCEL VBA宏编程Excel VBA实用技巧范例下载操作PowerPoint文档.zip源码EXCEL VBA宏编程Excel VBA实用技巧范例下载...
Excel-VBA宏编程实例源代码-由Excel启动PowerPoint并将表中的图表粘贴到幻灯片上.zip
Excel-VBA实用技巧范例-操作PowerPoint文档.zip
超级超链接批量设置工具可以为Word文件(*.doc;*.docx),Excel文档(*.xls;*.xlsx),Powerpoint幻灯片文档(*.ppt;*.pptx),网页HTML文件(*.htm,*.html)批量设置超链接。比如可以为您的所有文档中的公司
批量选取图片设置PPT页面背景。
PPT文档母版批量设置工具是一款PPT文档母版批量设置工具,批量为Microsoft PowerPoint幻灯片文档设置母版。操作简单:您只需为一个PPT文档设置母版,然后在本工具中将其选择为复制模板
PowerPoint图片排版技巧,ppt图片排版教程,ppt设计教程模板。
Microsoft PowerPoint环境下开展VBA开发的必备参考文件
例学VBA:Excel·Access·PowerPoint中的VBA高效应用》主要介绍基于Microsoft Office的VBA应用程序开发。全书分为4篇:第1篇包括第0章,主要介绍与Office VBA编程相关的基础知识;第2篇包括实例1~实例20,主要通过20...
使用PowerPoint中的VBA功能实现交互.doc