Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1803 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Macro capture d'écran

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Macro capture d'écran

n°2300727
barrym78
Posté le 16-05-2017 à 15:47:25  profilanswer
 

Bonjour le forum,  
 
Je dispose d'une macro qui me permet de sélectionner une image et de la placer (en la redimensionnant) dans une plage de cellules définie sur une feuille Excel.  
 

Code :
  1. Sub InsertionImage_Page_Garde()
  2.     Dim Emplacement As Range
  3.     Dim Img As Object
  4.     Dim ShapeObj As Shape
  5.     'Boucle pour supprimer l'ancienne image
  6.     For Each ShapeObj In ActiveSheet.Shapes
  7.         If ShapeObj.Name = "Cible6" Then ActiveSheet.Shapes("Cible6" ).Delete
  8.     Next ShapeObj
  9.     If Application.Dialogs(xlDialogInsertPicture).Show Then
  10.         'Définit l'emplacement de l'image
  11.         Set Emplacement = Range("B11:H37" )
  12.         Set Img = ActiveSheet.DrawingObjects(ActiveSheet.Shapes.Count)
  13.         With Img.ShapeRange
  14.             'Nommer l'image insérée (Pour la supprimer plus facilement ensuite)
  15.             .Name = "Cible6"
  16.             .LockAspectRatio = msoFalse
  17.             .Left = Emplacement.Left
  18.             .Top = Emplacement.Top
  19.             .Height = Emplacement.Height
  20.             .Width = Emplacement.Width
  21.         End With
  22.     Else
  23.         MsgBox "Insertion d'image interrompue."
  24.     End If
  25. End Sub


 
Le seul soucis c'est que je suis obligé de faire une capture d'écran de l'image que je veux insérer, de l'enregistrer dans un dossier puis de lancer la macro pour l'insérer sur Excel.  
 
Je voudrais donc savoir s'il était possible d'améliorer cette macro afin que celle-ci permette de faire directement la capture d'écran et d'insérer l'image dans la zone définit. L'idée serait :  
 
- Lancer la macro  
- Sélectionner la partie de l'image voulue grâce à un outil de capture d'écran  
- La macro place l'image capturée dans la plage voulue et en la redimensionnant (comme le permet actuellement ma macro).  
 
Je vous remercie d'avance :)!

mood
Publicité
Posté le 16-05-2017 à 15:47:25  profilanswer
 

n°2300734
patrice337​40
Avec la réponse, c'est facile.
Posté le 16-05-2017 à 16:16:04  profilanswer
 

Regardes ici :
http://www.commentcamarche.net/for [...] re-d-ecran


---------------
Cordialement, Patrice

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Macro capture d'écran

 

Sujets relatifs
Ouverture de VM en plein écran à aprtir d'un batch (RESOLU)Macro Copie données de feuilles excel dupliquées
Macro sur toutes les feuilles d'un classeurMacro Replace entre 2 fichiers excel
Macro qui lance application avec Utilisateur et mdpGLFW écran noir (si multi thread)
faire une capture d'acranMacro VBA ListBox : erreur si une seule entrée
Macro VBA pour écrire du code Macro ImageJCreer un bouton macro plusieurs feuilles d'un classeur
Plus de sujets relatifs à : Macro capture d'écran



Copyright © 1997-2016 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR