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....

Corey,

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

--
Hope that helps.

Vergel Adriano


"Corey" wrote:

> 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....
>
>
>

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.



"Corey" <(E-Mail Removed)> wrote in message news:ep%(E-Mail Removed)...
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....