超初級者です。エクセルVBAで写真を張り付けたいです

フォルダから、1.jpg、２jpgをそれぞれ選択してセル内に調整するというマクロ自動で取りました。
下記のD:\xlsx\tesutoの部分をその都度フォルダを選択するようにしたいのですがどうしたらいいでしょうか。
※写真のファイル名は、1.jpg、２jpg固定です。

ActiveSheet.Pictures.Insert("D:\xlsx\tesuto\output_１.jpg").Select
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Sub Macro6()
'
' Macro6 Macro
'
'
Range("B11:F41").Select
ActiveSheet.Pictures.Insert("D:\xlsx\tesuto\output_１.jpg").Select
Selection.ShapeRange.IncrementLeft 17.25
Selection.ShapeRange.IncrementTop 15.75
Range("G11:K41").Select
ActiveSheet.Pictures.Insert("D:\xlsx\tesuto\output_２.jpg").Select
Selection.ShapeRange.IncrementLeft 19.5
Selection.ShapeRange.IncrementTop 14.25
End Sub

No.2 回答者： ママチャリ 回答日時： 2020/09/02 22:31

こんなので、動きませんかね？古いExcel(2010)では動くのですが・・・。

ちなみに「セル内に調整する」とのことですが、提示されているコードのどの部分が、それにあたるのでしょうか？
理解できなかったので、後学のために補足して頂けるとありがたいです。

Sub sample()
Application.Dialogs(xlDialogInsertPicture).Show
End Sub

No.1 ベストアンサー 回答者： fujillin 回答日時： 2020/09/02 17:16

こんにちは

ファイルダイアログでフォルダーを選択するなどが考えられます。
指定されたフォルダーのパスに対して、固定のファイル名を連結すれば、求めるファイルへのパスが作成でｋぢると思います。

以下は、ダイアログからファイルパスを作成する簡単な例です。

Sub Sample()
Dim folderPath As String

With Application.FileDialog(msoFileDialogFolderPicker)
　If .Show = True Then folderPath = .SelectedItems(1)
End With
If folderPath = "" Then Exit Sub

MsgBox folderPath & "\output_1.jpg" '←作成されたファイルのパス

End Sub