欢迎来到天天文库
浏览记录
ID:53874725
大小:161.26 KB
页数:2页
时间:2020-04-10
《批量修改ppt的文字颜色.doc》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、视图-宏-新建-代码删除原来的,替换如下:bmycolor()''修改字体颜色'SubOED01()DimoShapeAsShapeDimoSlideAsSlideDimoTxtRangeAsTextRangeOnErrorResumeNextForEachoSlideInActivePresentation.SlidesForEachoShapeInoSlide.ShapesSetoTxtRange=oShape.TextFrame.TextRangeIfNotIsNull(oTxtRange)ThenWithoTxtRange.Font.Color.RGB=RGB(Red:=0,
2、Green:=0,Blue:=0)'改成你想要的文字颜色EndWithEndIfNextNextEndSub
此文档下载收益归作者所有