Excelの不要スタイルを削除するコード
覚書。
1.Alt+F11にでVisualBasicEditorを起動
2.以下のコードを追加
Sub DeleteStyle()
Dim s
On Error Resume Next
For Each s In ActiveWorkbook.Styles
If Not s.BuiltIn Then
s.Delete
End If
Next
End Sub
3.Alt+F8で「DeleteStyle」を実行
覚書。
1.Alt+F11にでVisualBasicEditorを起動
2.以下のコードを追加
Sub DeleteStyle()
Dim s
On Error Resume Next
For Each s In ActiveWorkbook.Styles
If Not s.BuiltIn Then
s.Delete
End If
Next
End Sub
3.Alt+F8で「DeleteStyle」を実行