Comment copier une image (objet graphique dans le presse-papiers en VBA?
Dans Excel 2003, j'ai besoin de copier un objet Graphique (sheet.PageSetup.LeftFooterPicture
) dans le presse-papiers.
Comment puis-je le faire?
Vous devez vous connecter pour publier un commentaire.
Dans les versions d'Excel antérieures à 2007, il est impossible d'extraire le graphique de la page. Vous auriez besoin d'avoir le fichier image d'origine.
Voir cette question précédente pour plus de détails
Selon MSDN un
Graphic
charge l'Image dans un fichier (nom de fichier). LeFilename
doit contenir le chemin d'accès complet vers le fichier comme "C:\myimage.jpg" mais une fois la feuille de calcul est sauvé, il a changé le nom du fichier à 'myiamge" sans le chemin et l'extension. Je n'ai pas pu trouver une autre Référence au fichier dans Excel.Le code suivant peut vous aider.
Vous souhaiterez peut-être modifier
Me.
le Nom de votre Feuille et de la Destination.comme mentionné avant, le problème c'est que je ne peut pas extraire de l'image de l'objet graphique(LeftFooterPicture)
La recherche sur les réponses je n'ai débrouiller ce problème.
voici donc ma solution:
- Je créer un invisible ils feuille de calcul et d'ajouter toutes les photos de la Forme des objets (Formes.AddPicture avec l'image du chemin d'accès)
- Je lier un courant workshhet nom et la position de l'image avec un nom de la forme
Par le temps j'ai besoin de copier une image à cliapboard je regarde l'image dans l'invisible ils page (de la forme.CopyPicture xlScreen, xlPicture)
Comme cela, vous pouvez copier des images dans le presse-papiers.
Quand j'essaye de copier quelque chose qui ne semble pas vouloir copier, je fais une Impression d'Écran de mon clavier et de le coller à la PEINTURE à l'accessoire. À partir de là, vous pouvez recadrer quelque chose que vous ne voulez pas et puis de couper et de coller l'image dans un nouveau fichier de PEINTURE de sorte qu'il est propre. Vous pouvez l'enregistrer dans un .jpg pour une utilisation plus facile.
Espère que ça aide.