[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『実行時エラー』(さるさる)
セルに入力したフォルダー&ファイル名から画像をインサートする
以下のマクロを組みましたが、画像がなかったときに以下のエラーが出ます。
(実行時エラー"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:40
Dir関数をいれて思うように行きました。
ありがとうございます。
(さるさる) 2016/05/30(月) 18:32
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.