Excelでカスタムスタイルを削除するときに問題が発生する2016

Question

Excel 2016で大きなブックを使用すると、多数のカスタムスタイルがブックにインポートされ、ブックのセルの書式設定が混乱しているようです。私は次のコードを使用してカスタムスタイルを削除しようとしました。

Sub clear_all_styles() 

Dim styT As Style 

For Each styT In ActiveWorkbook.Styles 
    If styT.BuiltIn = False Then 
     styT.Locked = False 
     styT.Delete 
    End If 
Next styT 

End Sub 

しかし、コードを実行すると、スタイルはまだスタイルリボンに表示されます。また、スタイルを右クリックして手動で削除しようとすると、削除されません。

私が間違っていることは何ですか？

Answer 1

あなたはアメージング