在同一张Powerpoint演示文稿的多张幻灯片中,用其他颜色替换特定的文本颜色

程序员

我正在做一个演示,其中有200多张幻灯片。Evevry幻灯片包含多行。在每张幻灯片的每一行中,都有一部分文本突出显示为蓝色。我想将蓝色更改为其他颜色。

我希望此更改能反映在所有幻灯片中,这意味着特定的颜色应替换为我的新颜色,并且不应影响其他文本颜色,因为它是其他颜色,因为我想强调这一点。

简而言之,用所有幻灯片中的其他颜色替换文本特定部分的特定颜色。

史蒂夫·林兹伯格

这是来自http://www.pptfaq.com的PowerPoint常见问题解答的答案

问题

您在很多幻灯片中都有很多文字。其中一些已设置为您现在需要更改的颜色。这会有所帮助。

Option Explicit

Sub ChangeTextColors()

    Dim oSl As Slide
    Dim oSh As Shape
    Dim lCol As Long
    Dim lRow As Long
    Dim x As Long

    Dim lOldColor As Long
    Dim lNewColor As Long

    ' EDIT THESE TO THE COLORS YOU WANT TO CHANGE FROM and TO
    lOldColor = RGB(100, 200, 100)
    lNewColor = RGB(200, 100, 200)

    For Each oSl In ActivePresentation.Slides
        For Each oSh In oSl.Shapes

            If oSh.HasTextFrame Then
                If oSh.TextFrame.HasText Then
                    Call ChangeTextRange(oSh.TextFrame, lOldColor, lNewColor)
                End If
            End If

            If oSh.HasTable Then
                With oSh.Table
                    For lCol = 1 To .Columns.Count
                        For lRow = 1 To .Rows.Count
                            Call ChangeTextRange(.Cell(lRow, lCol).Shape.TextFrame, lOldColor, lNewColor)
                        Next
                    Next
                End With
            End If

' this part is commented out because PPT 's buggy and ... sorry ... haven't quite figured it out yet:
'            If oSh.HasSmartArt Then
'                With oSh.SmartArt
'                    For x = 1 To .Nodes.Count
'                        Call ChangeTextRange(.Nodes(x).TextFrame2, lOldColor, lNewColor)
'                    Next
'                End With
'            End If

            If oSh.HasChart Then
                ' You're on your own, my friend
            End If

        Next
    Next

End Sub

Sub ChangeTextRange(oTextFrame As Object, lOldColor As Long, lNewColor As Long)

    Dim x As Long

    With oTextFrame.TextRange
        For x = 1 To .Runs.Count
            If .Runs(x).Font.Color.RGB = lOldColor Then
                .Runs(x).Font.Color.RGB = lNewColor
            End If
        Next
    End With

End Sub

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

使用C#将PowerPoint演示文稿的所有幻灯片放到宽屏模式

来自分类Dev

如何在Powerpoint或Google幻灯片中显示幻灯片演示文稿的高级概述

来自分类Dev

在VBA powerpoint中如何将新幻灯片添加到空白演示文稿

来自分类Dev

使用Powershell将幻灯片从一种Powerpoint演示文稿复制到另一种幻灯片

来自分类Dev

滑动滑块将所有幻灯片放到一张幻灯片中

来自分类Dev

在reval.js R Markdown演示文稿中更改标题幻灯片颜色

来自分类Dev

如何使用Python从PowerPoint演示文稿幻灯片中提取评论

来自分类Dev

如何在for循环python-pptx中的同一张幻灯片中添加两个或更多图像

来自分类Dev

如何在上一张幻灯片中停止我的HTML演示文稿?

来自分类Dev

如何使用OpenXML将幻灯片插入另一张PowerPoint幻灯片?

来自分类Dev

为什么动画仅适用于第一张幻灯片而不适用于其他幻灯片?

来自分类Dev

从Access VBA打开PowerPoint演示文稿的特定幻灯片

来自分类Dev

PowerPoint:在演示文稿中多次重复使用幻灯片

来自分类Dev

在Powerpoint编辑模式下禁用滚动到下一张幻灯片

来自分类Dev

从一张幻灯片中删除主题

来自分类Dev

删除PowerPoint演示文稿中所有未使用的母版幻灯片

来自分类Dev

嵌入其他PowerPoint演示文稿中的幻灯片

来自分类Dev

使用C#将PowerPoint演示文稿的所有幻灯片放到宽屏模式

来自分类Dev

将来自其他Powerpoint演示文稿的幻灯片的链接副本嵌入到另一个Powerpoint演示文稿中

来自分类Dev

如何在Powerpoint或Google幻灯片中显示幻灯片演示文稿的高级概述

来自分类Dev

不在演示文稿模式时,通过热键在幻灯片中选择幻灯片

来自分类Dev

如何将标题幻灯片插入PowerPoint演示文稿中?

来自分类Dev

如何在PowerPoint 2016幻灯片中更改默认墨水颜色

来自分类Dev

FlexSlider轮播在第一张幻灯片中滑动所有图像-WordPress

来自分类Dev

如何修复PowerPoint 2016演示文稿中某些幻灯片的母版不匹配?

来自分类Dev

使用Powershell将幻灯片从一种Powerpoint演示文稿复制到另一种幻灯片

来自分类Dev

每次演示文稿碰到第一张幻灯片时,powerpoint run宏

来自分类Dev

使用API从Google演示文稿中删除一张幻灯片

来自分类Dev

全屏菜单只在滑块的第一张幻灯片上工作,而不是在其他幻灯片上 - CSS、HTML

Related 相关文章

  1. 1

    使用C#将PowerPoint演示文稿的所有幻灯片放到宽屏模式

  2. 2

    如何在Powerpoint或Google幻灯片中显示幻灯片演示文稿的高级概述

  3. 3

    在VBA powerpoint中如何将新幻灯片添加到空白演示文稿

  4. 4

    使用Powershell将幻灯片从一种Powerpoint演示文稿复制到另一种幻灯片

  5. 5

    滑动滑块将所有幻灯片放到一张幻灯片中

  6. 6

    在reval.js R Markdown演示文稿中更改标题幻灯片颜色

  7. 7

    如何使用Python从PowerPoint演示文稿幻灯片中提取评论

  8. 8

    如何在for循环python-pptx中的同一张幻灯片中添加两个或更多图像

  9. 9

    如何在上一张幻灯片中停止我的HTML演示文稿?

  10. 10

    如何使用OpenXML将幻灯片插入另一张PowerPoint幻灯片?

  11. 11

    为什么动画仅适用于第一张幻灯片而不适用于其他幻灯片?

  12. 12

    从Access VBA打开PowerPoint演示文稿的特定幻灯片

  13. 13

    PowerPoint:在演示文稿中多次重复使用幻灯片

  14. 14

    在Powerpoint编辑模式下禁用滚动到下一张幻灯片

  15. 15

    从一张幻灯片中删除主题

  16. 16

    删除PowerPoint演示文稿中所有未使用的母版幻灯片

  17. 17

    嵌入其他PowerPoint演示文稿中的幻灯片

  18. 18

    使用C#将PowerPoint演示文稿的所有幻灯片放到宽屏模式

  19. 19

    将来自其他Powerpoint演示文稿的幻灯片的链接副本嵌入到另一个Powerpoint演示文稿中

  20. 20

    如何在Powerpoint或Google幻灯片中显示幻灯片演示文稿的高级概述

  21. 21

    不在演示文稿模式时,通过热键在幻灯片中选择幻灯片

  22. 22

    如何将标题幻灯片插入PowerPoint演示文稿中?

  23. 23

    如何在PowerPoint 2016幻灯片中更改默认墨水颜色

  24. 24

    FlexSlider轮播在第一张幻灯片中滑动所有图像-WordPress

  25. 25

    如何修复PowerPoint 2016演示文稿中某些幻灯片的母版不匹配?

  26. 26

    使用Powershell将幻灯片从一种Powerpoint演示文稿复制到另一种幻灯片

  27. 27

    每次演示文稿碰到第一张幻灯片时,powerpoint run宏

  28. 28

    使用API从Google演示文稿中删除一张幻灯片

  29. 29

    全屏菜单只在滑块的第一张幻灯片上工作,而不是在其他幻灯片上 - CSS、HTML

热门标签

归档