Discussion :

[stef3700]

Bonjour
Je voudrais avoir un code pour la suppression en Range("E6:H15")
car Jai essayer se code le problème il me supprime les autres images de ma page .

Merci d'avance pour votre aide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub test()
 Dim sha As Shape
 For Each sha In ActiveSheet.Shapes
     If sha.Type = msoPicture Then sha.Delete
 Next sha
 End Sub

Voici le code qui fonctionne pour l'insertion.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub Inser_Images()
 Dim image As Variant, L As Single, T As Single, W As Single, H As Single, plagerecept
 With ActiveSheet
.Unprotect ("11")
 Set plagerecept = .Range("E6:H15")
 'coordonnées  la plage de réception
 L = plagerecept.Left
 T = plagerecept.Top
 W = plagerecept.Width
 H = plagerecept.Height
 image = Application.GetOpenFilename
 If image <> False Then
 .Shapes.AddPicture image, True, True, L, T, W, H
 End If
     .Protect ("11")
  End With
 
End Sub
Sub Sup_Images()
 Dim image As Variant, L As Single, T As Single, W As Single, H As Single, plagerecept
 With ActiveSheet
.Unprotect ("11")
 Set plagerecept = .Range("E6:H15")
 'coordonnées  la plage de réception
 L = plagerecept.Left
 T = plagerecept.Top
 W = plagerecept.Width
 H = plagerecept.Height
    'image = Application.GetOpenFilename
    If image <> False Then
    '.Shapes.AddPicture image, True, True, L, T, W, H
     End If
 
     .Protect ("11")
  End With
 
End Sub

[riaolle]

Bonjour,
Sur le site de Boisgontier, je trouve ceci :

Adresse de la cellule d'un shape

TopLeftCell.Address
BottomRightCell.Address

Sur cet exemple, nous supprimons le shape de la cellule B10

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub EffaceMentShapeCellule()
    For Each s In ActiveSheet.Shapes
     If s.TopLeftCell.Address = "$B$10" Then
       s.Delete
     End If
    Next s
 End Sub

A adapter à ton cas

[stef3700]

Merci parfait