Extraire des photos a partir d'un commentaire
Fermé
c.lyes
Messages postés
16
Date d'inscription
mardi 24 février 2009
Statut
Membre
Dernière intervention
9 janvier 2013
-
Modifié par c.lyes le 13/08/2011 à 03:27
LePierre Messages postés 249 Date d'inscription samedi 8 mars 2008 Statut Membre Dernière intervention 2 août 2012 - 13 août 2011 à 17:06
LePierre Messages postés 249 Date d'inscription samedi 8 mars 2008 Statut Membre Dernière intervention 2 août 2012 - 13 août 2011 à 17:06
A voir également:
- Extraire des photos a partir d'un commentaire
- Annuaire portable gratuit a partir d'un nom ✓ - Forum Mobile
- Comment trouver un numéro à partir du nom et prénom ✓ - Forum Mobile
- Extraire video youtube - Guide
- Trouver un numero de portable a partir d'un nom svp - Forum Internet / Réseaux sociaux
- Téléchargez cette archive (dossier compressé). en extraire tous les fichiers dans un dossier local. quel fichier contient l’expression trouverpix ? ✓ - Forum Windows
1 réponse
LePierre
Messages postés
249
Date d'inscription
samedi 8 mars 2008
Statut
Membre
Dernière intervention
2 août 2012
336
Modifié par LePierre le 13/08/2011 à 17:07
Modifié par LePierre le 13/08/2011 à 17:07
Bonjour
J'ai trouvé ce code sur un forum. Il permet d'enregistrer sur le disque l'image insérée dans un commentaire.
à plus
J'ai trouvé ce code sur un forum. Il permet d'enregistrer sur le disque l'image insérée dans un commentaire.
Sub test()
Application.ScreenUpdating = False
With ActiveCell.Offset(, 1)
If Not .Comment Is Nothing Then
.Comment.Visible = True
.Comment.Shape.CopyPicture
With .Parent.ChartObjects.Add(0, 0, .Comment.Shape.Width, .Comment.Shape.Height).Chart
.Paste
.Export ThisWorkbook.Path & "\tmp.jpg", "JPG"
End With
.Parent.ChartObjects(.Parent.ChartObjects.Count).Delete
.Comment.Visible = False
End If
End With
Application.ScreenUpdating = True
End Sub
à plus