摘要: 纯英文: 点击查看代码 ``` Sub ChangeFont() Dim slide As slide Dim shape As shape ' 设置目标字体名称 Dim newFont As String newFont = "新字体名称" ' 替换为您希望使用的字体名称 ' 遍历每一页 For 阅读全文
posted @ 2023-08-24 14:57 百科书 阅读(183) 评论(0) 推荐(1) 编辑