Attribute VB_Name = "写真一覧の表示マクロ"
Option Explicit

Sub inportPhoto(fName)
Attribute inportPhoto.VB_ProcData.VB_Invoke_Func = " \n14"
   If Right(Trim(fName), 3) = "jpg" Then
        If Dir(fName) <> "" Then
            Call ChDrive(drive:=Left(fName, 2))
            With ActiveSheet.Pictures.Insert(fName)
                .Top = Selection.Top
                .Left = Selection.Left
                .Width = Selection.Width
            End With
        End If
    End If
End Sub
    
Sub inportPhotoLists()

    Dim stGyo As Long: stGyo = 2
    Dim edGyo As Long: edGyo = Cells(Rows.Count, "A").End(xlUp).Row
    
    Application.ScreenUpdating = False
    Dim Gyo As Long
    For Gyo = stGyo To edGyo
        Application.StatusBar = Gyo - stGyo & "/" & edGyo - stGyo
        DoEvents
        If Cells(Gyo, "F") = "jpg" Then
            Cells(Gyo, "G").Select
            Call inportPhoto(Cells(Gyo, "A").Value)
        End If
    Next Gyo
    Application.ScreenUpdating = True
End Sub

Sub 削除_シート内のすべてのオブジェクトを削除() 'Ctrl+F10でオブジェクトリスト

    Dim tobj As Shape
    
    'ワークシートの全オブジェクト数をループ
    For Each tobj In ActiveSheet.Shapes
        'オブジェクトを削除
          
            tobj.Delete

    Next
End Sub