如何使用VBA将所有功率幻灯片中的所有箭头（形状）着色为红色？ [英] How to color all the arrows ( shape) in all the slides of power point to red using VBA?

问题描述

我希望使用VBA为所有幻灯片中的所有箭头着色，以避免手动操作。



我尝试了什么：



我没有尝试，因为我是VBA的新手

I want to color all the arrows in all the slides in red color using VBA to avoid manual work.

What I have tried:

I have not tried as I am new to VBA

推荐答案

从这里开始：在Office 2010中更改形状中的颜色格式 [ ^ ]并更改代码满足您的需求。

Start here: Changing Color Formatting in Shapes in Office 2010[^] and change the code to your needs.

解决方案＃2：Google如何为powerpoint演示文稿中的所有箭头着色红色

然后自己弄清楚。





解决方案＃3：尝试以下内容：

Solution #2: Google "How to color all arrows in a powerpoint presentation red"
Then figure it out yourself.


Solution #3: Try something like the following:

Sub ColorArrowsRed()

Dim sl As Slide
Dim sh As Shape

    For Each sl In ActivePresentation.Slides
        For Each sh In sl.Shapes
            'Debug.Print sl.Name, sh.Name, sh.Line.ForeColor.RGB
            If InStr(sh.Name, "Arrow") > 0 Then
                sh.Line.ForeColor.RGB = RGB(256, 0, 0)
            End If
        Next
    Next

End Sub

一如既往，美好的一天。



。

As always, have nice day.

.

这篇关于如何使用VBA将所有功率幻灯片中的所有箭头（形状）着色为红色？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！