Powerpoint VBA：清除形状颜色

Question

祝 VBA 专家们今天好，

我正在尝试编写一个代码来搜索形状颜色，然后将其定位到某个位置。

例子

If shape.Fill.ForeColor.RGB = RGB(210, 210, 210) Then 

With shape
        .Width = 700 
        .Height = 20
        .Top = 80
        .Left = 30
        .Name = "TitleTextBox"
        .Fill.Visible = msoFalse
        .Fill.Transparency = 1.0  '(somehow when I type 1.0 it will become 1#, not sure why on this also)
End With

End if

我如何使用我的代码：

我使用此代码将填充颜色 Gray = RGB(210,210,210) 添加到某些形状，然后清除颜色并将形状重新定位到我想要的位置

但是，当我再次运行此代码时，添加了灰色颜色的形状将再次重新定位，即使它没有任何填充。

不知何故，我觉得形状已经记住了适用于它们的颜色，这不是我想要的。

如果有人可以为我提供一些关于如何克服这个问题的见解，我将不胜感激。

谢谢

Answer 1

试试这样：

Option Explicit
Public Sub TestMe()

    Dim sh      As Shape
    Dim sld     As Slide

    Set sld = Application.ActiveWindow.View.Slide

    For Each sh In sld.Shapes
        If sh.Fill.ForeColor.RGB = RGB(210, 210, 210) Then
            With sh
                .Fill.ForeColor.RGB = RGB(0, 0, 0)
                .Width = 700
                .Height = 20
                .Top = 80
                .Left = 30
                .Name = "TitleTextBox"
                .Fill.Visible = msoFalse
                .Fill.Transparency = 1#
            End With
        End If
    Next sh
End Sub

找到灰色形状后，确保将其颜色更改为RGB(0,0,0)。因此，如果您再次运行代码，它将不再是灰色的，也不会被考虑在内。我已经用这条线做到了：

        .Fill.ForeColor.RGB = RGB(0, 0, 0)