シェイプのフォントの色を「自動」に設定する方法でやってみました。
黒のカラーコードはColorIndexでは1です。
Sub macro1()
Dim sp As Shape
Set sp = ActiveSheet.Shapes(1)
sp.TextFrame.Characters.Font.ColorIndex = xlColorIndexAutomatic
End Sub
Sub macro2()
Dim sp As Shape
Set sp = ActiveSheet.Shapes(1)
sp.TextFrame.Characters.Font.Color = 0
End Sub