엑셀 2010에서 사진넣기 매크로 (현재는 화일이 있는 경로로 저장되는데 ⇒ 사진화일을 저장할수 있는 함수는 없는지요?) > information

출처 : http://answers.microsoft.com/ko-kr/office/forum/office_2010-excel/%EC%97%91%EC%85%80-2010%EC%97%90%EC%84%9C/f9410f2c-f50e-47e7-b3f5-866e872600c3

엑셀  사진넣기 매크로 입니다.

엑셀 2010 이하버전에서도 사진넣기는 잘동작하나.  디카메모리에서 사진을 불러와 엑셀에 저장한후 메모리카드를 제거한후 다시 엑셀을 열었을경우 저장이안되고 이미지 경로가 맞지 않는다고 메세지가 나오네요.    아래 매크로로 엑셀 2010에서 사진화일이 엑셀화일 자체에 저장이가능한 방법은 없는지요.   엑셀에 그림삽입처럼 사진을 읽어온후 저장해도  다른컴퓨터등에서 사진이 저장된 엑셀화일이 필요하거든요?, 확인후 답변 부탁드립니다.

Sub 사진넣기()

Dim myPic   As Variant

    myPic = Application.GetOpenFilename _

                    (filefilter:="Picture Files,*.jpg;*.bmp;*.tif;*.gif;*.png;*.emf;*.wmf")

    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

=========================================

Microsoft Office의 Excel 사이트를 방문해 주셔서 감사합니다.

문의 하신 Excel 2010에서 사진 넣기 매크로가 작동하지 않는 문제에 대한 답변을 드리겠습니다.

말씀해 주신 매크로를 확인해 보았으나 Picture.Insert 기능이 기존(Excel 2007)에 작동하던 방식과 Excel 2010에서 작동하는 방식이 서로 달라져서 문제가 발생하는 문제입니다.

기존 Excel 2007에서는 그림 삽입으로 작동을 하였으나, Excel 2010에서는 연결하여 복사하는 방식으로 변경되었기 때문에, 아래 방법으로 매크로를 수정해서 사용하시기 바랍니다.

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

Sub사진넣기_2010()

Dim strPath As String

Dim objPic As Object

strPath = Application.GetOpenFilename(filefilter:="Picture Files,*.jpg;*.bmp;*.tif;*.gif;*.png;*.emf;*.wmf")

If strPath = "" Then Exit Sub

Set objPic = ActiveSheet.Pictures.Insert(strPath).ShapeRange

With objPic

    .LockAspectRatio = msoFalse

    .Height = Selection.Height

    .Width = Selection.Width

    .Left = Selection.Left

    .Top = Selection.Top

End With

objPic.Select                       ' 삽입한 개체 선택

Selection.Copy                      ' 복사

ActiveSheet.Pictures.Paste.Select   '그림으로 붙여 넣기

objPic.Delete                       ' 문제가 발생하는 개체 삭제

End Sub

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

기존 방법에서 삽입한 개체를 선택하여, 복사 후 그림으로 붙여 넣기를 한 후 연결하여 붙여넣기로 설정되었던 개체는 제거하였습니다.

해당 내용에 대해서 정확한 확인이 될때까지 해당 방법으로 이용해 주시기 바랍니다.

제가 문제에 대해 더 알아야 할 것이 있다면 응답 주시면 감사하겠습니다.

제시해 드린 답변이 도움이 되었기를 바랍니다.