字体设计绿水青山-绿水青山的字体设计

本篇文章给大家谈谈字体设计绿水青山，以及绿水青山的字体设计对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。 今天给各位分享字体设计绿水青山的知识，其中也会对绿水青山的字体设计进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

1. 如何修改PPT所有页字体？

1、如何修改PPT所有页字体？

我们做好一个ppt之后，发现其中的字体并不符合我们的要求，需要更换字体。这个时候假如一页一页更换会显得非常麻烦，那么，如何修改PPT所有页的字体呢？下面让我来给大家介绍下吧，希望对大家有所帮助。

1、首先，我们将做好的ppt打开，可以看到，我们这个ppt标题的所有字体都是微软雅黑的，

2、点击ppt如图所示位置的替换，选择替换字体，

3、然后我们将选择好需要改变的字体，比如这个ppt是微软雅黑，然后选择将其改为宋体，选择好之后，点击替换即可，替换成功后，点击关闭即可，然后我们可以看到所有页的微软雅黑字体变为了宋体

答：点击ppt中的工具里的宏选项里的宏。然后输入要创建的宏名点击创建按钮。

在出现的页面中将下面一段代码覆盖掉原先的代码：

Sub OED01() '批量修改字体格式、大小和颜色

Dim oShape As Shape

Dim oSlide As Slide

Dim oTxtRange As TextRange

On Error Resume Next

For Each oSlide In ActivePresentation.Slides

For Each oShape In oSlide.Shapes

Set oTxtRange = oShape.TextFrame.TextRange

If Not IsNull(oTxtRange) Then

With oTxtRange.Font

.Name = "楷体_GB2312" '改成你需要的字体

.Size = 20 '改成需要的文字大小

.Color.RGB = RGB(Red:=255, Green:=0, Blue:=0) '改成你想要的文字颜色

End With

End If

Next

Next

End Sub

然后点击保存按钮，关闭窗口，回到ppt编辑页面。

再次点击工具里的宏选项里的宏，选择刚编辑好的宏，点击运行，

这样ppt中的所有字体都被改变了，想要变成什么样的字体可在代码里修改。

答：点击ppt中的工具里的宏选项里的宏。然后输入要创建的宏名点击创建按钮。

在出现的页面中将下面一段代码覆盖掉原先的代码：

Sub OED01() '批量修改字体格式、大小和颜色

Dim oShape As Shape

Dim oSlide As Slide

Dim oTxtRange As TextRange

On Error Resume Next

For Each oSlide In Acti

花间一壶酒，独酌无相亲。

秦时明月汉时关，万里长征人未还。

烽火连三月，家书抵万金。

乱花渐欲迷人眼，浅草才能没马蹄。

冬尽今宵促，年开明日长。

好雨知时节，当春乃发生。

好雨知时节，当春乃发生。

花间一壶酒，独酌无相亲。

秦时明月汉时关，万里长征人未还。

国破山河在，城春草木深。

野旷天低树，江清月近人。

无端更渡桑干水，却望并州是故乡。

春色满园关不住，一枝红杏出墙来。

烽火连三月，家书抵万金。

山重水复疑无路，柳暗花明又一村。

所谓伊人，在水一方。

海内存知己，天涯若比邻。

空山不见人，但闻人语响。

相看两不厌，只有敬亭山。

芳菲歇去何须恨，夏木阳阴正可人。

竹径通幽处，禅房花木深。

农夫方夏耘，安坐吾敢食。

白毛浮绿水，红掌拨清波。

自古逢秋悲寂寥，我言秋日胜春朝。

竹径通幽处，禅房花木深。

野旷天低树，江清月近人。

两岸青山相对出，孤帆一片日边来。

不知细叶谁裁出，二月春风似剪刀。

关于字体设计绿水青山和绿水青山的字体设计的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。 字体设计绿水青山的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于绿水青山的字体设计、字体设计绿水青山的信息别忘了在本站进行查找喔。