엑셀 vba 사진입력

Sub 사진입력()

    olines = Last_Lines_입력자동화("A")

    

    totalCols_입력자동화 = 8

    

    Dim arrGrd()

    arrGrd = Range("A6").Resize(olines, totalCols_입력자동화)

        

  Application.Calculation = xlCalculationManual

  Application.ScreenUpdating = False

  

    For i = 1 To olines

      

      Set rngC = Range("A5").Offset(i, 9)

      

      str1 = arrGrd(i, 1)

      Range("A5").Offset(i, 0).Select

      

      

      If Right(StrConv(str1, vbLowerCase), 3) = "jpg" Then

        

        With ActiveSheet.Pictures.Insert(str1).ShapeRange  '사진 삽입

'            .LockAspectRatio = msoFalse             '사진의 좌우비율고정 해제

            .LockAspectRatio = msoTrue              '사진의 좌우비율고정 해제

            .Left = rngC.Left + 1                           '사진파일 왼쪽 위치 설정

            .Top = rngC.Top + 1                          '사진파일 위쪽 위치 설정

            .Width = rngC.Width - 2                      '사진파일 폭 설정

            .Height = rngC.Height - 2                    '사진의 높이 설정

        End With

      End If

    Next

       

  Application.Calculation = xlCalculationAutomatic

  Application.ScreenUpdating = True

  

End Sub

.