EXCEL2010でふりがなマクロを実行したら

質問

EXCEL 2003で作成したファイルをEXCEL 2010で開いて、以下のマクロを実行しました。

Private Sub CommandButton1_Click()
Selection.SetPhonetic
Selection.Phonetics.Visible = True
End Sub

約4500行ある名前（テキストからのコピペ）全ての行にふりがなを振るためです。
ところが、EXCEL 2003ではほんの数秒で完了するのですがEXCEL 2010で実行した時
10分以上掛かりました。
何か解決策はあるのでしょうか。

因みにEXCEL 2003はWindowsXP、EXCEL 2010はWindows7、それぞれのマシンで
今後も同じマクロを実行する状況にあります。

回答No.1

prius770c

excel2007でOSはvistaの環境下で4500件ほどテストしていましたが、提示されているマクロを使ってみましたが20秒ほどで終了しましたね。

なぜでしょうか？

もしかして、ファイルに関数などが入っていて都度計算とかしていませんか？
それが原因ならば、計算の自動を手動に変えれば早くなると思いますが・・・
仮に原因がそれならば、下記のもので早くなるとは思うのですが・・・

Private Sub CommandButton1_Click()

Application.Calculation = xlCalculationManual

Selection.SetPhonetic
Selection.Phonetics.Visible = True

Application.Calculation = xlCalculationAutomatic

End Sub

現象が再現されれば、良かったのですが原因がつかめないので推測でごめんなさい。

お礼

回答いただきありがとうございます。

試しにEXCEL 2010の新規ブックにて、提示いただいたコードのみで実行してみましたが、
やはり終了するまで12分程かかりました。
同じくEXCEL 2003では5、6秒で終了します。

Office IME 2010が仕様変更された？のと関係あるのでしょうか。