PowerPoint幻灯片内表格如何全部变换字体

1.如何用vba批量修改ppt中表格的字体格式

试试下面的代码，来自论坛，重点就是需要遍历：

Sub 批量修改图表字体颜色（）

Dim Myslide As Slide '声明对象变量为幻灯片

Dim Myshape As Shape '声明对象变量为形状

Dim MySeries As Series '声明对象变量为图表系列

For Each Myslide In Application.ActivePresentation.Slides '在幻灯片集合内循环

For Each Myshape In Myslide.Shapes '在形状集合内循环

If Myshape.HasChart Then '判断形状是否为图表

Set MySeries = Myshape.Chart.SeriesCollection(1) '设置变量为图表内的系列1

With MySeries.DataLabels

.RGB = RGB(225, 11, 0)

End With

End If

Next Myshape

Next Myslide

End Sub

2.如何在PPT中做汉字笔顺演示

1、单击插入→图片→艺术字→选择样式确定。输入要拆分的字，字体要求选择“楷体GB2312”或者“仿宋GB2312”，因为这两个字体出来的效果字可以显示完整的笔画→确定。

2、选定插入的艺术字→剪切，单击编辑→选择性粘贴→图片（windows元文件）确定。

3、右击粘贴过来的文字图片→组合→取消组合→警示将图片转换为office图形对象→是→再右键单击文字图片→取消组合→确定。

4、选择拆分好的笔划，可更改着色或按笔顺添加自定义动画（擦除） 特别提示：一定要在动画设置的方向上选择合理正确的方向。