Powerpoint VBA: Clearing Form Farbe

Question

Guten Tag VBA Experten gibt,

Ich versuche, einen Code zu schreiben, die eine Form Farbe zu suchen und es dann in irgendwo positionieren.

Beispiel

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 

Wie ich meinen Code verwenden:

ich diesen Code mit einer Füllfarbe Grau = RGB (210.210.210) auf bestimmte Formen fügen Sie dann die Farbe löschen und die Form neu positionieren wo ich wollte

Wenn ich jedoch diesen Code erneut ausführen, wird die Form, die die graue Farbe hinzugefügt hat, erneut positioniert, obwohl es keine Füllung hat.

Irgendwie fühlte ich, dass die Form sich an die Farbe erinnert, die auf sie zutreffen, was ich nicht wollte.

Ich schätze, wenn jemand mir einen Einblick geben kann, wie ich dieses Problem überwinden kann.

Dank

Answer 1

Versuchen wie folgt aus:

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 

Sobald Sie die graue Form finden, stellen Sie sicher, dass Sie RGB(0,0,0) seine Farbe ändern. Daher wird es nicht mehr grau sein und wird nicht berücksichtigt, wenn Sie den Code erneut ausführen. Ich habe es mit dieser Zeile gemacht:

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