![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
お世話になります。
VBA初級者ですがよろしくお願いいたします。
①ファイルリストにあるファイルを開いて、②指定したフォルダから、③画像を張り付け、④微修正し、⑤保存。
これを繰り返す作業を行いたいです。
(リストは画像参照)
下記は、対象のファイルを開いた状態で、②指定したフォルダから、③画像を張り付け、④微修正し、⑤保存のものです。
これを、①ファイルリストにあるファイルを開いて、②指定したフォルダから、③画像を張り付け、④微修正し、⑤保存し、リストにもとづいて上から順番に繰り返す作業を行いたいです。
Sub 図面貼り付け()
Dim folderPath As String
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = True Then folderPath = .SelectedItems(1)
End With
If folderPath = "" Then Exit Sub
Range("B11:F41").Select
ActiveSheet.Shapes.AddPicture _
Filename:=folderPath & "\1.jpg", _
LinkToFile:=False, _
SaveWithDocument:=True, _
Left:=Selection.Left + 17.25, _
Top:=Selection.Top + 15.75, _
Width:=-1, _
Height:=-1 'Selection.Width Selection.Height
Range("G11:K41").Select
ActiveSheet.Shapes.AddPicture _
Filename:=folderPath & "\2.jpg", _
LinkToFile:=False, _
SaveWithDocument:=True, _
Left:=Selection.Left + 19.5, _
Top:=Selection.Top + 14.25, _
Width:=-1, _
Height:=-1 'Selection.Width Selection.Height
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
よろしくお願いいたします。
![「エクセルVBAでリストにあるファイルを開」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/f/542420556_5f7d112f97571/M.jpg)
No.2
- 回答日時:
イメージがわかなくて違うと思いますが
act=activeworkbook.name
for i=2 to 6
workbooks.open range("A" & i)
msgbox workbooks(act).activesheet.range("C" & i)
activeworkbooks.save
activeworkbooks.close
next
これはリストからエクセルを開いて、画像アドレスを表示
保存して閉じるコードです
真ん中空白行にしたいことを書くとできます。
修正しました
回答ありがとうございます。初級者ですいません。下記のような感じでいいのでしょうか。
Sub 図面貼り付け()
Dim folderPath As String
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = True Then folderPath = .SelectedItems(1)
End With
If folderPath = "" Then Exit Sub
Range("B11:F41").Select
ActiveSheet.Shapes.AddPicture _
Filename:=folderPath & "\1.jpg", _
LinkToFile:=False, _
SaveWithDocument:=True, _
Left:=Selection.Left + 17.25, _
Top:=Selection.Top + 15.75, _
Width:=-1, _
Height:=-1 'Selection.Width Selection.Height
ActiveWorkbook.Save ←ここでエラー
ActiveWindow.Close
End Sub
おかげさまで、リストのファイル、開きましたがセーブでエラーができます。
現在、フォルダを手動で選択していますが、フォルダリストのフォルダを自動で選択し、写真をはって、セーブして、閉じて、次のファイルといいうような感じで、自動で行いたいです。
お手数おかけしますが
よろしくお願いいたします。
No.1
- 回答日時:
イメージがわかなくて違うと思いますが
for i=2 to 6
workbooks.open range("A" & i)
msgbox activeworkbook.activesheet.range("C" & i)
activeworkbooks.save
activeworkbooks.close
next
これはリストからエクセルを開いて、画像アドレスを表示
保存して閉じるコードです
真ん中空白行にしたいことを書くとできます。
activeworkbooks.save
activeworkbooks.close
⇓
activeworkbook.save
activeworkbook.close
に変更したらうまくいきました。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
- Excel(エクセル) Excel2019 マクロを使用し画像を貼り付けした際のリンク切れについて 2 2022/11/15 16:14
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/02/21 11:19
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
JPGファイルなのに読み込めない。
-
ペイントで丸くトリミングして...
-
IrvineでDLしたファイルをファ...
-
メタセコイアで、どうやって画...
-
イラストレーターをJpegデータ...
-
uwsc 画像の取得および保存方法...
-
Photoshopのスライスツールでで...
-
PhotoShopでレイヤーマスクがう...
-
一太郎に画像を挿入するとファ...
-
イラレでリンクが勝手に埋め込...
-
Illustrator 埋め込んだ画像が...
-
イラストレータにtiff画像は貼...
-
JPEGの画像を重くしたい
-
エクセルVBAでリストにあるファ...
-
PDFファイルの画像をフォトショ...
-
GIMPで重ねた下の画像がうっす...
-
画像が保存できない!
-
macイラレとwinイラレの互換...
-
gimpで綺麗に文字を入れる方法...
-
画像を自動的に配置できるフリ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
JPEGの画像を重くしたい
-
macイラレとwinイラレの互換...
-
VBAでwebの画像を名前を付けて...
-
JPGファイルなのに読み込めない。
-
gimpで綺麗に文字を入れる方法...
-
一太郎に画像を挿入するとファ...
-
メタセコイアで、どうやって画...
-
JPG画像のレイヤー分解?編集?...
-
JPEG画像のバイト数を減らすに...
-
ペイントで丸くトリミングして...
-
保存形式TIFFからJPEGやEPSへの...
-
イラストレータにtiff画像は貼...
-
イラレでリンクが勝手に埋め込...
-
IllustratorでPDF化した時にEPS...
-
画像を自動的に配置できるフリ...
-
PhotoshopでPDF200ページをJPEG...
-
uwsc 画像の取得および保存方法...
-
IllustratorのWeb用に保存の「...
-
Illustrator 埋め込んだ画像が...
-
wordに.fig の拡張子の画像を貼...
おすすめ情報