Excelのシェイプのフォント色が自動かどうかの判別


エクセルマクロにて、  
シェイプのフォント色が「自動」かどうかを判別しようとしています。  
以下のように、ColorIndexがxlColorIndexAutomaticの場合、フォント色を「自動」と判断していますが、  
Excel上でカラーパネルより、フォント色に黒（Colorコードは0）を設定した場合も、ColorIndexがxlColorIndexAutomaticとなる為、黒と「自動」が区別できない状態です。  
判別方法があれば教えてください。

[code]

    If ActiveSheet.Shapes(0).TextFrame.Characters.Font.ColorIndex = xlColorIndexAutomatic Then
    ・・・省略・・・
    End If
    
[/code]




回答ありがとうございます。  
自動については以下で判別するようにしました。

[code]

    shape.TextFrame.Characters.Font.ClorIndex = xlColorIndexAutomatic And
    shape.TextFrame2.TextRange.Characters.Font.Fill.ForceColor.ObjectForceColor = msoNotThemeColor
    
[/code]




回答ありがとうございます。  
自動については以下で判別するようにしました。

[code]

    shape.TextFrame.Characters.Font.ClorIndex = xlColorIndexAutomatic And
    shape.TextFrame2.TextRange.Characters.Font.Fill.ForceColor.ObjectForceColor = msoNotThemeColor
    
[/code]

