[[20160530171230]] 『実行時エラー』(さるさる) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『実行時エラー』(さるさる)

セルに入力したフォルダー&ファイル名から画像をインサートする
以下のマクロを組みましたが、画像がなかったときに以下のエラーが出ます。

(実行時エラー"1004"PicturesクラスのInsertプロパティを取得できません。)

エラーが出なくてマクロを進ます方法はありますでしょうか?

セルM2には、「7」が入力されています。
lastRowは「212」となります。

     A
3 フォルダー&102330.jpg 
4
5
6
7
8
9
10 フォルダー&102332.jpg 
11
12
13
14
15
16
17 フォルダー&102334.jpg 

Sub Macro1()

    Dim A, B, C, D As Variant '変数の宣言(A,B,C,D,E)
    Dim lastRow     As Long '最終行
    A = Cells(2, 13).Value '対象行数
    D = Cells(2, 14).Value '途中から開始用
    Const Title_ROW = 2     '見出し行
    Const syouhin_COL = 2    '開始列番号
    '最終行取得(対象開始列番号)
    lastRow = Cells(Rows.Count, syouhin_COL).End(xlUp).Row
    B = lastRow '最終行
    Dim myCnt As Long
    For myCnt = 3 To B Step A
        C = Cells(myCnt, 1).Value
        Cells(myCnt, 1).Select

        If C <> "" Then
            ActiveSheet.Pictures.Insert( _
            C). _
            Select '画像挿入
            Selection.ShapeRange.Width = 148.5354330709 '画像縮小
            Selection.ShapeRange.IncrementLeft 1.0714173228 '左に6移動
            Selection.ShapeRange.IncrementLeft 1.0714173228
            Selection.ShapeRange.IncrementLeft 1.0714173228
            Selection.ShapeRange.IncrementLeft 1.0714173228
            Selection.ShapeRange.IncrementLeft 1.0714173228
            Selection.ShapeRange.IncrementLeft 1.0714173228
            Selection.ShapeRange.IncrementTop 1.0714173228 '下に4移動
            Selection.ShapeRange.IncrementTop 1.0714173228
            Selection.ShapeRange.IncrementTop 1.0714173228
            Selection.ShapeRange.IncrementTop 1.0714173228
        End If
    Next myCnt
    Range("C3").Select
End Sub

< 使用 Excel:Excel2010、使用 OS:Windows7 >


Dir関数で画像ファイルの存在を確認し、ある場合のみ処理してはいかがでしょうか?
(???) 2016/05/30(月) 17:34

(???)さんありがとうございます。

Dir関数というのがあるんですね。
調べてやってみます。

(さるさる) 2016/05/30(月) 17:40


(???)さんありがとうございます。

Dir関数をいれて思うように行きました。

ありがとうございます。

(さるさる) 2016/05/30(月) 18:32


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.