Does this code Delete pictures or simply makes them Invisible

[Corey]

In time am i going to have a very large file if many pictures have been used and removed by the
following code?


With Sheets("Procedure")
..Select
..Unprotect
Dim lnCnt As Long, sStr As String
Application.ScreenUpdating = False
For lnCnt = 1 To ActiveSheet.Shapes.Count
With ActiveSheet.Shapes(lnCnt)
sStr = Left(.Name, 1)
If sStr <> "S" Then
If sStr <> "B" Then
.Visible = False ' <== Are they deleted or are they stored with the file still ?
If sStr = "L" Then .Line.ForeColor.SchemeColor = 8
End If

End If
End With
Next


Corey....

 

[Vergel Adriano]

Corey,

Setting the Visible property to false would make it hidden. It would still
be there.. To delete, use the Delete method.

 

[Corey]

Reverted to this:
Dim xlShape As Shape
For Each xlShape In ActiveSheet.Shapes
If xlShape.Type = msoPicture Then xlShape.Delete
Next
As i found the file was gaining in size as the pictures were simply invisible instead of being
deleted.

File dropped in size dramatically when run this the first time.



In time am i going to have a very large file if many pictures have been used and removed by the
following code?


With Sheets("Procedure")
..Select
..Unprotect
Dim lnCnt As Long, sStr As String
Application.ScreenUpdating = False
For lnCnt = 1 To ActiveSheet.Shapes.Count
With ActiveSheet.Shapes(lnCnt)
sStr = Left(.Name, 1)
If sStr <> "S" Then
If sStr <> "B" Then
.Visible = False ' <== Are they deleted or are they stored with the file still ?
If sStr = "L" Then .Line.ForeColor.SchemeColor = 8
End If

End If
End With
Next


Corey....