링크로 삽입된 그림(사진) 영구 삽입하기 1

엑셀에 열심히  사진 첨부해서

인쇄집에 갔는데      사진이 파일이 없다며 않열리는  문제   ㅠ,ㅠ

 

이젠 아래 블로그 통해서  해결 ~ ^^

 

 

 

http://rosa0189.blog.me/60204171545    블로그에서 퍼옴

 

 

Sub insert_A_Pic()
    Dim myPic As Variant

    myPic = Application.GetOpenFilename(filefilter:="Picture Files,*.jpg;*.bmp;*.tif;*.gif")

    If myPic = False Then
        Exit Sub
    End If

     With ActiveSheet.Pictures.Insert(myPic).ShapeRange
        .LockAspectRatio = msoFalse
        .Height = Selection.Height
        .Width = Selection.Width
        .Left = Selection.Left
        .Top = Selection.Top
    End With

End Sub

 

링크로 그림(사진)파일 삽입 또는 기존의 GetOpenFilename 을 이용한 위와 같은 코드로 (A컴퓨터에서) 그림을 삽입하면 그림이 링크로 삽입되어 파일을 다른 컴퓨터(B컴퓨터)로 가져갈 경우 동일 경로에 그림파일이 없므로 그림이 아래와 같이 깨지게 된다.

 

 

 

 

A 컴퓨터에서 아래의 코드를 실행 시 1)기존 링크된 파일의 링크를 깨고 복사  =>  2) 기존 링크된 그림 파일 삭제  => 3) 복사한 파일을 기존 링크된 그림 위치에 이동하는 과정을 거쳐 영구삽입하게 해준다. (첨부 파일을 열게 되면 링크로 삽입된 4개는 깨져 나올 것입니다.)

 

첨부파일은   위 블로그 통해서 받으세요

 

저도  찾다~~~ 찾다 찾았네요~ ^^   

 

 

[출처] (1340) 링크로 삽입된 그림(사진) 영구 삽입하기 1 (엑셀 VBA 매크로)|작성자 니꾸