[RESOLU] En VBA supprimer une image

xhudi69

XLDnaute Accro

• 15 Mars 2013

• #16

Re : [RESOLU] En VBA supprimer une image

RE jmps

Dans la problèmatique de byters, il fait sa copie d'écran sur la feuille où il a aussi d'autres images qui lui servent de bouton, 2 choses ou il délimitte une zone d'effacement d'où il exclus ses "images bouton", ou il nomme sa copie d'écran pour l'effacer.

@+

EDIT: il me semble que byters a décroché 😛

 

Dernière édition: 15 Mars 2013

Vote positif 0 Vote négatif

byters

XLDnaute Nouveau

• 16 Mars 2013

• #17

Re : [RESOLU] En VBA supprimer une image

Bonjour à toute la communauté,


Pour ton post ci-dessus c'est tout à fait ça mes deux images qui me servent de bouton au départ disparaissaient avec la copie écran, mais maintenant avec cette zone que tu as délimité et contient les copies d'écran effacement ce fait très bien.

Ton code je l'ai recopié et adapté ma zone qui est "A1:N37" et ça marche très bien.

Mais hier soir je pensais encore à une dernière autre chose qui faciliterait encore le job. Comme on fait des copies d'écran et que la copie est placé dans le presse papier en attente de coller.

Il serait bien, toujours avec un bouton supplémentaire de faire un coller et redimensionnement automatique sur la zone entière.
Le collage je sais que ça se fait mais je pense que le redimensionnement aussi.

Merci

 

Dernière édition: 16 Mars 2013

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 16 Mars 2013

• #18

Re : [RESOLU] En VBA supprimer une image

Bonjour byters, le Forum

En PJ ton fichier avec ta zone et le bouton RE DIMENSIONNER, à adapter avec tes macros.

@+ 😎

 

Pièces jointes

• byters_Shape.xlsm

  58.8 KB · Affichages: 103
• byters_Shape.xlsm

  58.8 KB · Affichages: 94
• byters_Shape.xlsm

  58.8 KB · Affichages: 83

Vote positif 0 Vote négatif

byters

XLDnaute Nouveau

• 17 Mars 2013

• #19

Re : [RESOLU] En VBA supprimer une image

Bonjour xhudi69,

Excuse mopi de ne pas avoir répondu avant je suis entrain de faire un PC en parallèle.
Je te remercie pour ton fichier, je viens de le tester mais après avoir fait copier depuis mon logiciel de copie d'écran j'aimerai que le bouton colle puis redimentionne et mais quand je fais ça j'ai le debogue qui ce lance et me surligne cette ligne

Code:

With ActiveSheet.Shapes("nono")

nono je pense que c'est le nom de l'image à savoir que moi c'est un simple copier/coller donc pas de nom.

Est-il possible de savoir la hauter et la lageur d'une zone dans une feuille. Si oui comment

Merci

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 17 Mars 2013

• #20

Re : [RESOLU] En VBA supprimer une image

Bonjour byters, le Forum,

En PJ ton fichier, je viens de refaire l'essai, lorsque tu fais ta Capture d'écran, tu vas dans ta zone et tu fais Click droit, Là ta Capture d'écran se colle et porte le nom de "NONO", maintenant tu peux redimenssionner.

@+ 😎

 

Pièces jointes

• byters_Shape.xlsm

  65.6 KB · Affichages: 87
• byters_Shape.xlsm

  65.6 KB · Affichages: 90
• byters_Shape.xlsm

  65.6 KB · Affichages: 88

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 17 Mars 2013

• #21

Re : [RESOLU] En VBA supprimer une image

RE:

Pour plus de compréhension, j'ai associé les deux macros, si tu fais Click droit dans la zone, l'image se redimenssionne de suite.

@+

 

Pièces jointes

• byters_Shape.xlsm

  60.7 KB · Affichages: 55
• byters_Shape.xlsm

  60.7 KB · Affichages: 52
• byters_Shape.xlsm

  60.7 KB · Affichages: 48

Vote positif 0 Vote négatif

byters

XLDnaute Nouveau

• 17 Mars 2013

• #22

Re : [RESOLU] En VBA supprimer une image

C'est trop fort je te remercie. Il me reste maintenant un dernier détail c'est de savoir le nombre de pixel que fait ma zone pour mettre mon image existe t-il un outil dans excel pour le savoir.

Merci

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 17 Mars 2013

• #23

Re : [RESOLU] En VBA supprimer une image

RE:

Content que cela fonctionne correctement, pour les pixels, je suis incompétent en la matière, tu devrais rechercher sur le Forum ou ouvrir un fil de discution.

@+

 

Vote positif 0 Vote négatif

byters

XLDnaute Nouveau

• 17 Mars 2013

• #24

Re : [RESOLU] En VBA supprimer une image

Je viens de tester sur mon fichier en renommant la macro et le nom NONO j'ai une erreur de debogage. J'ai aussi modifié je pense qu'il n'y avait pas tout à prendre dans ta feuil1 moi c'est pour la feuil2

Merci de ton aide

 

Pièces jointes

• Pour test.xlsm

  167 KB · Affichages: 61
• Pour test.xlsm

  167 KB · Affichages: 63
• Pour test.xlsm

  167 KB · Affichages: 66

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 17 Mars 2013

• #25

Re : [RESOLU] En VBA supprimer une image

RE

Pour ma part tout fonctionne bien, lorsque je fait Click droit l'image se cadre correctement et se renomme, si je la redimenssionne et que j'appuie sur le bouton; elle se recadre.

Où est exactement le soucis 😕 de plus tes macros sont bloquées par un code, je ne peux pas intervenir.

@+

 

Vote positif 0 Vote négatif

byters

XLDnaute Nouveau

• 17 Mars 2013

• #26

Re : [RESOLU] En VBA supprimer une image

Excuse moi je faisait un clic dans ma zone et je cliquais sur le bouton.
Là j'ai besoin de faire uniquement le clique droit et il se redimensionne automatiquement.

Si je comprends bien le bouton et le module peut-être supprimé.

Pour ce qui est des pixel j'ai redimensionné manuellement mon image puis mon image sélectionné je suis allé dans Outils images => Format ça ma donné la taille en cm je suis allé dans photoshop puis j'ai entré les longeurs en cm puis je les ai ensuite demandé en pixel et il me les a converti tout seul.

Merci

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 17 Mars 2013

• #27

Re : [RESOLU] En VBA supprimer une image

RE:

C'est bon à savoir, je ne connais pas PHOTOSHOP 😉 content que tu es pu résoudre ton problème.
Effectivement tu peux supprimer le module et le bouton.

@+

 

Vote positif 0 Vote négatif

byters

XLDnaute Nouveau

• 19 Mars 2013

• #28

Re : [RESOLU] En VBA supprimer une image

Bonjour,

Apparemment les utilisateurs pour ce fichier ne redimensionne pas ils impriment directement et tout ce qui sort de la zone définit dans la largeur ne s'imprime pas. La résolution impression d'écran est de H 34,75 cm x L 62,44 cm.

Il me semble que çà doit être possible de lui demander de une impression d'une largeur de 1000 pixel, ce qui correspondrait à la largeur de la zone.

Merci

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 19 Mars 2013

• #29

Re : [RESOLU] En VBA supprimer une image

Bonsoir byters, le Forum,

Je ne comprends pas, les utilisateurs n'ont pas à redimenssionner, puisque c'est compris dans la macro 😕
de plus comment font-ils pour être hors zone ?

As-tu retouché la macro? si oui joins moi ton fichier.

@+

 

Vote positif 0 Vote négatif

byters

XLDnaute Nouveau

• 19 Mars 2013

• #30

Re : [RESOLU] En VBA supprimer une image

Bonsoir,

1- Non je n'ai pas retouché le fichier.
2- En faite la copie d'écran est une copie d'écran au travail d'une page sur notre réseau intranet.
Le bord droit de la capture d'écran laisse toujours une marge blanche ce qui correspond à la ma zone d'impression.
Moi j'ai toujours crus qu'il redimensionnais leurs captures d'écran. Mais non elle est simplement rogner à l'impression.
Donc la redimension de l'image n'a plus lieu d'être ( je le garde au chaud). Mais sur le bouton d'impression j'aimerais qu'il me rogne l'image avec tout ce qui dépasse à droite de cette zone A1:N37 mais uniquement en largeur.

Merci

 

Vote positif 0 Vote négatif