delete word picture with macro?

  • Thread starter Thread starter BrianG
  • Start date Start date
B

BrianG

I've created a macro which, on save, deletes the data-free pages of a
three page form. The problem is that the top of each page contains our
company logo as a Word picture. When the macro deletes the extra pages,
the Word pictures remain. How can I delete these pictures? Or is there
a better way to handle to logo?

BrianG
 
Brain,

This will delete the pictures, but it also deletes any
other Sharp Objects.

Sub removePics()

For iSheet = 1 To ActiveWorkbook.Sheets.Count
Sheets(iSheet).Visible = True
Sheets(iSheet).Select

i = ActiveSheet.Shapes.Count

For j = 1 To i
ActiveSheet.Shapes.Item(1).Select
Selection.Delete
Next j
Next iSheet

End Sub
 
Back
Top