Excel2007へのVBA移植

質問

下記のURL
http://www.geocities.jp/vbaxl/book/001.html

をExcel2007でも使いたいと思っております。
作者さんにコンタクトが取れると一番良いと思うのですが、管理されているかよくわかりません。

このマクロは、Excel2003でも動くことは確認しましたが、2007になると動きません。
自分なりにデバッグしているのですが、原因っぽぃところは
1.標準モジュール内の　Function 挿入可能(objFile) で挿入するファイル形式をチェックするところで
こける。
2.UserFormのコード内で　ActiveSheet.Pictures.Insert　で画像挿入後にシートの列幅を画像サイズに調整している様に思えるのですが、Pictures.Insert自体がアクティブセルに画像を挿入できていないような気がします。
3.そこで、ActiveSheet.Shapes.AddPicture　を使おうとすると列幅を調整するところでRangeのプロパティの指定ができないと怒られてしまいます。
　参考)http://park.geocities.jp/tryvba/excel2007question.html#4

この辺りで行き詰まりました。

私の腕はExcel初級者以下だと思いますので、一つよろしくお願いいたします。

回答No.1

hotosys · ベストアンサー

1はobjFileのプロパティが省略されてるので、
>ActiveSheet.Pictures.Insert(objFile).Delete
を
ActiveSheet.Pictures.Insert(objFile.Path).Delete
に変更する。

2は挿入後に画像の位置を指定してやればよいので、
>ActiveSheet.Pictures.Insert(strFolder & Me.ListBox1.List(i)).Select
の後ろに
Selection.Left = ActiveCell.Left
Selection.Top = ActiveCell.Top
を追加する。

3はActiveSheet.Shapes.AddPictureをどう指定するとどこでどんなエラーかわからない。

あと、ShepeのLockAspectRatioのデフォルト値が2007では変わっているので、サイズ変更の時は注意が必要な時があると思う。

それと、他人のソースを参考にする事自体は問題が無いと思うけれど、もしも著作権に触れるような使い方はしない方がいいと思います。

お礼

ありがとうございました。
とても、参考になりました。

> それと、他人のソースを参考にする事自体は問題が無いと思うけれど、もしも著作権に触れるような使い方はしない方がいいと思います。

肝に命じておきます。