Ｅｘｃｅｌ２０１０、リンクされたイメージを表示できませんの原因

Ｅｘｃｅｌ２０１０は、手頃な価格で高機能な表計算ソフトです。
マクロを使用すると、色々な作業を自動化する事ができて、大変便利です。

しかし、リンクされたイメージを表示できない現象が発生しました。
使用したパソコンは、下記のソフトを使用していました。

ＯＳ　　　　　　　：　Ｗｉｎｄｏｗｓ７（６４ｂｉｔ）
表計算ソフト　　　：　Ｅｘｃｅｌ２０１０（３２ｂｉｔ）

以下、Ｅｘｃｅｌ２０１０、リンクされたイメージを表示できませんの原因と対策を記載して行きます。

（項目１）
　・Ｅｘｃｅｌ２０１０でプログラムを開発している時、リンクされたイメージを表示できない現象が発生し
　　ました。
　・Ｅｘｃｅｌ２０１０でファイルを開いた所、下記の様な画像が表示されました。
　　

（項目２）
　・上記の現象は、Ｅｘｃｅｌ２００２で作成した物を、Ｅｘｃｅｌ２０１０で開いた時に起きました。
　・本来は、写真が表示される場所です。
　・画像のメッセージは、以下の通りでした。
　　「リンクされたイメージを表示できません。ファイルが移動または削除されたか、名前が変更された
　　　可能性があります。リンクに正しいファイル名と場所を指定されていることを確認してください。」

（項目３）
　・インターネットで、「エクセル＋リンクされたイメージを表示できません」をキーワードにして検索した所、
　　画像ファイルを挿入する：Excel VBA｜即効テクニック｜Excel VBAを学ぶならmougが見つかりました。
　・上記の情報によると、「Excel 2007までは画像情報と一緒に保存されていたのに対し、Excel 2010でリンク
　　貼り付けに仕様が変わるなど、Excelのバージョンによって画像の保存方法が異なります。」との事です。

（項目４）
　・Excel 2010 で Pictures.Insert メソッドを使用して図をワークシートに挿入すると図がリンク オブジェクトとして挿入されるを参考に、ActiveSheet.Pictures.InsertをActiveSheet.Shapes.AddPictureに変更し、
　　セルに貼り付ける位置を指定する方法で解決しました。

　・変更前
　　If Dir(TargetFolder & "EBM#" & i - 1 & ".BMP") <> "" Then
　　　Range("M" & 6 + i - 1).Select
　　　ActiveSheet.Pictures.Insert(TargetFolder & "EBM#" & i - 1 & ".BMP").Select
　　End If

　・変更後
　　If Dir(TargetFolder & "EBM#" & i - 1 & ".BMP") <> "" Then
　　　Range("M" & 6 + i - 1).Activate
　　　objFileName = TargetFolder & "EBM#" & i - 1 & ".BMP"
　　　Set objShape = ActiveSheet.Shapes.AddPicture( _
　　　Filename:=objFileName, _
　　　LinkToFile:=False, _
　　　SaveWithDocument:=True, _
　　　Left:=Selection.Left + 1, _
　　　Top:=Selection.Top + 1, _
　　　Width:=60# - 2, _
　　　Height:=60# - 2) '（ピクセル）／（９６／７２）
　　End If

（項目５）
　・以上で、Ｅｘｃｅｌ２０１０、リンクされたイメージを表示できませんの原因と対策と対策は終了です。
　・本現象は、Ｅｘｃｅｌ２０１０の仕様と思われます。