EXCELでのオートシェイプ入れ替え

ＥＸＣＥＬ上で貼り付けてあるオートシェイプを簡単に（マクロ等で）入れ替えるやり方はありませんでしょうか？
簡単で短時間に大量のファイル（３００ほど）の作業を行いたいと思っています。

宜しくお願いします。

No.2 回答者： yumeno0908 回答日時： 2005/01/12 21:06

「入れ替え」の意味がいまいちわかりませんが、

例えば、現在あるすべてのオートシェイプを
一括して別の形のオートシェイプへ変更するということでしょうか？

まず、一つオートシェイプを選択しておいてから
メニューの「ツール」→「マクロ」→「新しいマクロの記録」をクリックします。
マクロの名前をつけてOKをクリック。
（名前は数字から始まる名前以外を着けてくださいね。なんでもいいです）

それから「図形描画ツールバー」から「図形の調整」
→「オートシェイプの変更」をクリックし
変更したいオートシェイプを選びます。

選んだオートシェイプが変更されたら、メニューの「ツール」
→「マクロ」→「記録終了」をクリック。

あとは変更したい残りのオートシェイプを選択
（図形描画ツールバーから白い矢印のアイコンで
ドラッグして囲ってしまえばまとめて選択できます）
「Alt」＋「F8」を押してマクロウィンドウを出し、「実行」をクリックします。

No.1 回答者： papayuka 回答日時： 2005/01/12 21:04

例はアクティブシートにある全ての楕円を吹き出しにします。

Sub test()
Dim sh As Shape
　For Each sh In ActiveSheet.Shapes
　　If sh.AutoShapeType = msoShapeOval Then
　　　 sh.AutoShapeType = msoShapeBalloon
　　End If
　Next sh
End Sub