Supprimer image

Pierrot93

XLDnaute Barbatruc

• 7 Mars 2013

• #2

Re : Supprimer image

Bonjour,

tu as plusieurs images dans ta feuille ?

bon après midi
@+

 

Vote positif 0 Vote négatif

B

breeze

XLDnaute Occasionnel

• 7 Mars 2013

• #3

Re : Supprimer image

OK laisser faire j'ai trouvé.
Je me sous estime. j'ai réussi seul.
Merci pareil !!!

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 7 Mars 2013

• #4

Re : Supprimer image

Re,

bah... ici c'est un forum d'entreaide.. ce serait sympa que tu places la solution au cas ou quelqu'un aurait le même souci...

 

Vote positif 0 Vote négatif

B

breeze

XLDnaute Occasionnel

• 7 Mars 2013

• #5

Re : Supprimer image

Je suis content de lire cela , Pierrot93, car j'ai souvent l'impression de demander plus d'aide que d'en apporter sur ce forum.Une chance que vous ètes là

Justement j'ai crier victoire trop vite je reviens donc avec mon probleme de suppression d'Image. Comme je le disais plustôt

Quand je me positionne dans une cellule et que je fait la macro suivante
ActiveSheet.Pictures.Insert( _
"C:\Mes Documents\Mes images\Bibliothèque multimédia Microsoft\MC900432586[1].png" _
).Select
Selection.ShapeRange.ScaleHeight 0.2, msoTrue, msoScaleFromBottom
Selection.ShapeRange.ScaleWidth 0.2, msoTrue, msoScaleFromRight
Selection.ShapeRange.ScaleWidth 0.2, msoTrue, msoScaleFromLeft
Selection.ShapeRange.ScaleHeight 0.2, msoTrue, msoScaleFromtop

Je réussi à positionner une image dans la cellule.

J'ai donc essayé de créer une macro pour supprimer l'image
J'ai donc essayé ceci

ActiveSheet.Pictures.Select
Selection.Delete

Le probleme c'est que si mon image est placée dans plusieurs cellules différentes tutes les images disparaissent.

Je voudrais que seule l'image de la cellule où je suis, disparaisse

Est-possible ?

Merci infiniment !!!

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 7 Mars 2013

• #6

Re : Supprimer image

Re,

essaye peut être ceci :

Code:

Option Explicit
Sub test()
Dim s As Shape
For Each s In ActiveSheet.Shapes
    If Not Intersect(ActiveCell, s.TopLeftCell) Is Nothing Then s.Delete
Next s
End Sub

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 7 Mars 2013

• #7

Re : Supprimer image

Bonjour,

Code:

Sub EffaceMentShapeCelluleActive()
  For Each s In ActiveSheet.Shapes
    If Not Intersect(s.TopLeftCell, ActiveCell) Is Nothing Then s.Delete
  Next s
End Sub

JB

 

Vote positif 0 Vote négatif

B

breeze

XLDnaute Occasionnel

• 7 Mars 2013

• #8

Re : Supprimer image

Merci à vous deux !
Ca fonctionne . Vous avez fait ma journée

Mille fois merci !!!

 

Vote positif 0 Vote négatif

byters

XLDnaute Nouveau

• 15 Mars 2013

• #9

Re : Supprimer image

Bonjour,

Je n'avais pas fait attention j'ai fait un post sur à peut prêt pareille. J'expose mon problème.
J'ai deux image que je me sers comme bouton un pour imprimer l'autre pour effacer.

La troisième image est une copie d'écran qui est seulement copié colle sur une feuille et le problème, soit je supprime tout même les boutons ce qui n'est pas le but recherché.

Je veux uniquement supprimer la copie d'écran car elle est remplacée plusieurs fois dans une journée et imprimé et ça par plusieurs utilisateur.

Le code ci-dessus ne fonctionne pas dans mon cas.

Merci pour votre aide

 

Vote positif 0 Vote négatif

byters

XLDnaute Nouveau

• 15 Mars 2013

• #10

Re : Supprimer image

C'est bon on m'a répondu à mon post ici pour ceux qui on le même problème que moi

 

Vote positif 0 Vote négatif