シェイプのフォントの色をの「自動」に設定する方法とFont.Colorで黒の両方でやってみ判別してみました。
黒同じ振る舞いをするので、仕様のカラーコードはColorIndexでは1ようですね。
Sub macro1()
Dim sp As Shape
Set sp = ActiveSheet.Shapes(1)
sp.TextFrame.Characters.Font.ColorIndexColor = xlColorIndexAutomatic
End Sub
Sub macro2()
Dim sp As Shape0
Set sp =If ActiveSheet.Shapes(1).TextFrame.Characters.Font.ColorIndex = xlColorIndexAutomatic Then
sp.TextFrame.Characters.Font.ColorColorIndex = 03
End If
End Sub