엑셀 2003에서 매크로 프로그램 2007 엑셀에 적용 여부

[PCiper]

안녕하세요

2004년에 엑셀 매크로를 이용하여 엑셀 2003으로 하기와 같이 매크로 프로그램을 만들었읍니다.

그런데 2007 엑셀로 변경하여 하기 프로그램을 진행하면 Application.FileSearch 부분에서

 <이 개체는 이동작을 지원하지 않읍니다> 라는 메시지와 함께 매크로가 정지 상태가 되는데

2007 엑셀에서 매크로를 이용하여 그림파일들을 폴더로 부터 불러 내는 예제 프로그램을 얻고 싶읍니다.

부탁드립니다.
  <참고로 하기 프로그램은 엑셀 2003 에선 잘 돌아 갑니다>

Sub Call_Picture()
       
    ChDir "C:\측정_Data\02-Waveform Analysis"
        With Application.FileSearch
            .NewSearch
            .LookIn = "C:\측정_Data\02-Waveform Analysis"
            .SearchSubFolders = True
            .Filename = "32X1QP64.tif" 'Full_Location_Name
            .MatchTextExactly = True
            .FileType = msoFileTypeAllFiles
        End With
        With Application.FileSearch
            If .Execute() > 0 Then
               
                With ActiveSheet.Pictures.Insert( _
                    "C:\측정_Data\02-Waveform Analysis\" & "32X1QP64.tif") '.Select
                    .ShapeRange.LockAspectRatio = msoFalse
                    .ShapeRange.Height = 88
                    .ShapeRange.Width = 120#
                    .ShapeRange.Rotation = 0#
                    .ShapeRange.IncrementLeft 0.75
                    .ShapeRange.IncrementTop 0.75
                End With
            Else
                MsgBox "There were no files(" & Full_Location_Name & ") found."
            End If
        End With
   
End Sub

[윤슬]

안녕하세요? [PCiper]님...

아래 URL 자료를 참고로 확인해 보세요...
http://cafe.daum.net/funnyexcel/K81s/17

그럼 잘 해결되시길... ^^*

[PCiper]

감사합니다.