05.書式→スタイル
Application.Dialogs(xlDialogApplyStyle).Show