2007で使えたマクロが２０１３では使えなくなりました。

Question

Excel2007までは、以下の処理で、貼り付けた写真枚数を一枚ずつセルの位置に合わせて移動できたのですが

 2013では一枚だけしか処理してくれません。

    ans = Application.Dialogs(xlDialogInsertPicture).Show

     If ans Then

         Selection.ShapeRange.LockAspectRatio = msoFalse

         Selection.ShapeRange.Height = 277 - 3

         Selection.ShapeRange.Width = 370 - 5

         Selection.ShapeRange.Rotation = 0#

        i = 1

        For Each sh In Selection.ShapeRange　　　←貼り付けられた写真が2007では

 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　すべて選択されていると認識していますが

 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　2013ですと一枚しか選択されていない状態

 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　になってしまうのか、この部分をどう訂正

 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　するべきか教えてください。

            If sh.Type = msoPicture Then

                f_open(i) = sh.AlternativeText

                sh.Cut

                Cells(start_r + (i - 1) * 14, 3).Select

                ActiveSheet.Paste

             End If

            i = i + 1

        Next

     End If

張り付けた写真が数枚でも、１枚だけ処理をして、for　Ｎｅｘｔ

を抜けてしまいます。

Selection.ShapeRange の前に、写真のすべて選択の記述を書き込めばと思うのですが

どういう記述にするのかわかりません。よろしくお願いいたします。

Answer 1

BANSUI さん、アドバイスありがとうございます。

azm_tka さん、こんにちは。

マイクロソフト コミュニティをご利用いただき、ありがとうございます。

Excel 2007 で使用できていたマクロが Excel 2013 では思い通りの動作にならないということですね。

azm_tka さんが書かれているように、マクロのコードに修正や工夫が必要なのかもしれないですね。

修正方法について情報を探してみたのですが、参考となりそうな情報は見つけられませんでした。。

マクロや VBA の質問については専門の VBA フォーラムがあるので、こちらのフォーラムにも投稿し情報を集めてみてはいかがでしょうか。

経験をお持ちの方から専門的なアドバイスも集まりやすくなると思います。

・ Visual Basic for Application (VBA)

投稿される場合は、こちらのスレッドに書き込んでいただいたように、作成コード全文を書いて投稿するとよいと思います。

よろしければ活用してみてくださいね。

Answer 2

下記サイトの『Microsoft Excel でマクロを使えるようにする』をご覧下さい。

http://iinamotto.com/2013/04/597.html

Answer 3

大沢　　さま

お手数をおかけいたしまして申し訳ありませんでした。

さっそくＶＢＡフォーラムに質問を転送いたします。