엑셀 그림추가 메크로 입니다. 여기서 파일주소였던 것을 파일로 저장하게 끔 하는...

[JADE]

우선

제가 쓰고있는 메크로를 보니

Sub ins_Pic()

    Dim myPic   As Variant
   
    myPic = Application.GetOpenFilename _
                    (filefilter:="Picture Files,*.jpg;*.jpeg;*.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

이렇게 되어있습니다.

그런데 문제가 있습니다.

불러온 그림의 파일이 그 위치에 없다거나 제가 이미대로 폴더를 옮기다보면 주소가 바뀌기 때문에

그림이 뜨질 않습니다.

제가 정리를 가끔씩 하는 편에...

차라리 주소가 아닌 그림 자체를 저장했으면 하는데 메크로 부분을 수정해서 할수 있을까요?

개천절 일하고있는... 저에게.. 도움 부탁드립니다...

읽어주셔서 감사합니다.

-----------------------------------------------------------------------------------------------------------

독서백편님 답글보고 해결해 보려 했는데

이렇게 뜨면서 안되어서 말입니다.... 제가 뭘 잘못한건가요...

[이군악]

요고 재밌는 현상이네요. 일단은 잘 안되요.
그냥 수동으로 그림 삽입을 하면 삽입이 되는데, 매크로로 삽입을 하면 link가 되나 보네요.
가끔은 매크로가 기록이 되기는 해도, 원래 했던 기능과 다르게 움직이는 경우도 몇 번 본적이 있는데
그런건가 하는 생각이 듭니다.

임시로 찾은 해결 방법은 그림 삽입이 끝나면 그 그림들을 잘라내서 다시 붙여 넣기를 하면
link가 사라지기는 합니다...
그런데 그림의 해상도가 현재 변경된 크기 수준으로 바뀌어 원본의 손상이 일어납니다.
완전한 해결이 안되네요.. 저는 이런 기능을 쓸 일이 별로 없어서... 여기까지가 한계입니다.

[JADE]

아앗! 제 글에 댓글이 달렸네요! 신기합니다!! 감사합니다!
해상도 변경은 신경쓰지 않습니다!
그 그림&사진들이 한 100장씩 되어도 모두 개체선택한다음 붙여넣기 하면 될까요?! 답변감사합니다.

[JADE]

이렇게 뜹니다... 제가 뭘 잘못했나요? ... 어후 ㅠㅠ

[JADE]

죄송합니다. 그림이 안보이네요. 본글에다가 첨부하겠습니다. 죄송합니다.

[JADE]

정말 감사합니다. 아주 잘됩니다 ... 복받으세요. 감사합니다.