💡 Source Code

Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms&)

Sub DeleteIllustrations()

Dim sh As Shape, i As Byte

Cells.Clear
i = 1

For Each sh In Worksheets("Sheet1").Shapes
Cells(i, 1) = i
Cells(i, 2) = sh.Name
sh.Delete
Cells(i, 3) = "Deleted"

With Cells(i, 4)
.Value = "P"
.Font.Name = "Wingdings 2"
.Font.Bold = -1 'TRUE
.Font.Color = vbGreen
End With

i = i + 1
Sleep 300
Next sh

Columns(2).AutoFit
End Sub
------------------------------------------------------------------------------------------

#excel
#msexcel
#msexceltutorial
#msexcelcourse
#vba
#vbatutorial
#excelvba
#fulltutorial
#excelvbatutorial
#microsoftexceltutorial
#tutorial
#exceltutorial
#advancedexcel
#advancedexceltraining
#algorithm
#algorithms
#programming
#program
#script
#vbamacro
#vbamacros
#usingmacro
#veryuseful
#useful
#veryusefulmacro
#freeeducation
#freeprogramming
#freelancer
#excelfreelancer
#vbafreelancer
#freelanceservices
#shapes
#excelshapes
#excelillustrations
#delete
#deleteshapes
#deleteallshapes
#deleteillustrations
#deleteicons
#deleteallicons
#icons
#icon
#3dmodels
#excel3dmodels
#smartart
#excelsmartart
#deletesmartart

свернуть