alt+f11을 누루고 모듈1에 아래 내용을 복사한후 저장했습니다.
Sub embed_Pics_Permanently()



Dim shtNo As Integer

Dim i As Integer

Dim wks As Worksheet

Dim shpC As Shape

Dim picLeft As Single

Dim picTop As Single



Application.ScreenUpdating = False



shtNo = ActiveSheet.Index

For i = 1 To Sheets.Count

Sheets(i).Activate



For Each shpC In Sheets(i).Shapes

If shpC.Type = 11 Then



picLeft = shpC.Left

picTop = shpC.Top



shpC.Copy

ActiveSheet.PasteSpecial Link:=False

shpC.Delete



Selection.Left = picLeft

Selection.Top = picTop

End If

Next shpC

Next i



MsgBox "매크로가 종료되었습니다."



Sheets(shtNo).Activate

End Sub

사진첨부 버튼을 만들어 클릭하면 "매크로가 종료되었습니다" 메시지만 나오고 그림파일 창이 뜨지 않는데
혹시 원인을 좀 알 수 있을까요?
저도 그림파일의 이동 이름변경등으로 애를 먹고 있는 1인 입니다.