Replace multiple pics in Excel 1

[HVtech]

Hi,
I have a sheet with mutiple (same) pictures on it, so when this sheet is printed, the picture (kind of logo) sits on top of every page.
Now I want to change those pictures with a new logo with a macro.
I tried this piece of code I found, but it's nit quite what I need.
Also , i have to run it a few times before all old pics are deleted.
The big problem I think is, the placement of the pics.
You can iagine that every 50 lines (or so) this pic is present and needs to be replaced at the same position.
Hope someone can help me.
This is the code what I tried:

Sub NieuwLogo()
Dim vs As Worksheet
On Error Resume Next
For Each ws In ActiveWorkbook.Worksheets
    For i = 1 To ws.Shapes.Count
    If ws.Shapes(i).Name = "Group 28" Then
        ws.Shapes(i).Delete
        ws.Pictures.Insert ("Z:\Thea\logo-oranje.png")
    'With ws.Shapes(ws.Shapes.Count)
    With ws.Shapes(ws.Shapes)
        .Top = ws.Range("A1").Top
        .Left = ws.Range("A1").Left
        .LockAspectRatio = msoFalse
        .Height = 150
        .Width = 150
    End With
    Else
    End If
Next i
Next ws
End Sub

Office 2010

 

[SkipVought]

Hi,

You really need only Zone, if you use the rows to repeat at the top feature.



Skip,
[sub]
Just traded in my OLD subtlety...
for a NUance![/sub]

 

[SkipVought]

If your Excel version is recent, then try a pic in the header.

http://support.microsoft.com/kb/288966

Skip,
[sub]
Just traded in my OLD subtlety...
for a NUance![/sub]

 

[HVtech]

You're talking chinese.. don't understand what you mean.. sorry

Office 2010

 

[HVtech]

Ok, inserted the header pic, recorded as a macro, working fine.
One problem to go, the removal of the old pics, where the first is namen "Picture 29", all others are named "Group 28"
Can you assist me on that?
Than I can combine all parts code to one.
Thanks !

Office 2010

 

[SkipVought]

Deletes all shapes in ActiveSheet....

Dim sp as shape

For each sp in ActiveSheet.shapes
   Sp.delete
Next

Skip,
[sub]
Just traded in my OLD subtlety...
for a NUance![/sub]

 

[HVtech]

O sh*t... I forgot.. there is one "shape" that needs to remain there, is called "Grafiek 38"
Sorry Skip.. can this be excluded from the Sp.delete routine (which is working fine btw..)

Office 2013

 

[SkipVought]

Dim sp as shape

For each sp in ActiveSheet.shapes
   Select case sp.name
      Case "your name here","add another if required to exclude"
      Case else 
          Sp.delete
   End select
Next

Skip,
[sub]
Just traded in my OLD subtlety...
for a NUance![/sub]

 

[HVtech]

Thanks a lot, Skip!
Great and fast help!!


Office 2013

 

[SkipVought]

Skip,
[sub]
Just traded in my OLD subtlety...
for a NUance![/sub]

 

[Andrzejek]

To show appreciation of the help received, click on:[blue]

Like this post?
Star it![/blue]

This also shows other users that this was a helpful post.


Have fun.

---- Andy