Deleting InlineShapes

S

Senad Isanovic

I'm trying to delete logo from the header in the doc. The logotype is there,
but when I'm running this code rs.InlineShapes.Count is 0. What's wring?
thanks!

Dim rs As Range
Set rs =
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range
If rs.InlineShapes.Count > 0 Then
rs.InlineShapes(1).Delete
End If
 
C

Chuck Henrich

It might be a Shape instead of an InlineShape - try testing for the Shapes
count.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Word macro that can call cells out of Excel for a find and replace 0
VBA to see if a Section exists in Word Document, and if it does, delete it 2
Loop through pages and insert header image 0
Remove Identical words 0
Different results from counts ... why? 9
Making a macro only work on certain files 2
Protected word template - vb/macro to update footer 7
Macro to Select text from a point given to a specific word 2

Top