小编Hen*_*und的帖子

在我们的营销公司/代理商处,我们使用Google表格中的主跟踪器来跟踪我们为客户处理的所有付费广告活动.文档越来越长,我们正在使用的各种条件格式规则在对文档进行任何更改时变得越来越慢.

五名员工在任何给定时间使用该文档,在对广告系列进行任何更改时对"状态"列进行更改 - 如果已准备好上传,是否为LIVE,是否已暂停等等.条件格式只是更改了每行的颜色基于"STATUS"列中的值.它还会查看开始/结束日期,并在出现问题时将该行标记为红色.等等.

如何使用此文档加快处理速度？我创建了一个缩小版本的跟踪器,每个条件格式规则都有一行,以便您查看.

我确信有更聪明的方法来整合规则和/或构建一个可以更轻松,更有效地处理任务的脚本.

我有一个150张幻灯片的powerpoint演示文稿,我想根据公司的品牌重塑努力进行修改.我们以前的绿松石色已用于文字,线条,形状和形状填充.我想构建一个贯穿整个演示文稿的VBA脚本,并一举修改所有幻灯片,并用我们新的深灰色替换这种蓝色.

旧的企业颜色是RGB(0,176,240) - 绿松石

新的企业颜色是RGB(71,67,65) - 深灰色

我在互联网上尝试过多种不同的vba,但无法让它正常工作.以下是旧颜色的典型幻灯片的屏幕截图 - 所有蓝色项目都应更改为深灰色:

来自一个有用的论坛成员的这段VBA代码非常适合填充形状 - 如果可以重新设计包含任何文本和形状轮廓和线条,那么它将是完美的.

Sub ChangeShapeColor()

    Dim oSh As Shape
    Dim oSl As Slide

    ' Look at each slide in the current presentation:
    For Each oSl In ActivePresentation.Slides

        ' Look at each shape on each slide:
        For Each oSh In oSl.Shapes

            ' IF the shape's .Fill.ForeColor.RGB = turqoise color:
            If oSh.Fill.ForeColor.RGB = RGB(0, 176, 240) Then

                ' Change it to corporate dark grey:
            oSh.Fill.ForeColor.RGB = RGB(71, 67, 65)

            End If

        Next …