엑셀 vba 사진삭제

Sub 사진삭제()

  Application.Calculation = xlCalculationManual

  Application.ScreenUpdating = False

  Dim s As Shape

  For Each s In ActiveSheet.Shapes

    If s.Type = 13 Then

      s.Delete

    End If

  Next

  Application.Calculation = xlCalculationAutomatic

  Application.ScreenUpdating = True

End Sub

.