パワーポイントVBA：私は形の色を検索するコードを記述し、その後、どこかにそれを配置しようとしている、そこVBAエキスパートに

Question

良い一日

をシェイプの色をクリア。

例私は自分のコード使用方法

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 

：私は特定の形状に塗りつぶしの色グレー= RGB（210210210）を追加するには、このコードを使用して

を、色をクリアし、形状を再配置私が望むところへ

しかし、このコードをもう一度実行すると、グレーの色が追加された図形は、塗りつぶしがなくても再配置されます。

どういうわけか、私は色が自分に当てはまることを思いついたと感じました。これは私が望むものではありません。

私がこの問題をどのように克服することができるかを知っていただければ幸いです。

おかげ

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)