Utilisation de range / shape :votre avis

Dim s As Shape

On Error GoTo suite 'en cas d'erreur va à la balise 'suite'
Feuille.Shapes('monimage').Select 'sélectionne l'image 'monimage' (provoque une erreur si elle n'existe pas)
Selection.Delete 'supprime l'image 'monimage'

suite: 'balise
Set s = Feuille.Shapes.AddPicture(SLogo, msoFalse, msoCTrue, 0, 0, 0, 0)
With s
.Name = 'monimage' 'nomme l'image
.LockAspectRatio = msoFalse
.Top = Range('d4').Top
.Left = Range('d4').Left
.Height = Range('d4:d7').Height
.Width = Range('d4:f4').Width
End With

Cliquez pour agrandir...

Const Slogo As String = 'C:\\\\\\\\Documents and Settings\\\\\\\\ThierryXLD\\\\\\\\Mes documents\\\\\\\\Mes images\\\\\\\\LogoXLD.gif'

Sub InsertLogo()
Dim ObjSH As Shape

Leon 'Le Nettoyeur !!! lol

Set ObjSH = Feuille.Shapes.AddPicture(Slogo, False, True, 0, 0, 0, 0)
    With ObjSH
        .Name = 'MonImage'
        .LockAspectRatio = msoFalse
        .Top = Range('d4').Top
        .Left = Range('d4').Left
        .Height = Range('d4:d7').Height
        .Width = Range('d4:f4').Width
    End With


End Sub

Sub Leon()
Dim WS As Worksheet
Dim ObjShape As Shape

Set WS = Feuille

For Each ObjShape In WS.Shapes
    With ObjShape
        If .Type = msoPicture Then
                'Pour Tester
                MsgBox .Name & ' Will be killed soon'
            .Delete
        End If
    End With
Next


End Sub

Cliquez pour agrandir...