Supression Image Shapes par macro
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:
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:
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 |
