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

를 붙여넣었는데 안되네요

정말 진심을 담아 부탁드립니다. 해결방법이 없을까요??