annee 2017

EXCEL ANNEE 2017

L'heure est venue de vous presenter

Une excel et bonne annee 2017 !

De la part de toute l equipe de VeriTi

Image 1

Bienvenue

sur le site des amis d'Excel

excel.veriti.net ou fr

Image 2

Musee

Visitez le "Musee VeriTi" 24h/24 - 7j/7, des "pepites" vous y attendent

Voir la suite
Image 3

Hommage

Thierry POURTIER alias 'Ti'
s'en est alle brutalement le samedi 13 novembre 2010...

Voir la suite
Image 4

Historique

Juillet 2013 : A l'occasion du 10eme anniversaire de VeriTi, j'ai décide de réparer et de remettre en ligne le site, avec une nouvelle version plus structurée tout en gardant les mêmes fichiers Excel

Voir la suite

Membre

+ Enregistrement
Articles >Images > Insérer image graphique

Insérer image graphique

Publié par veriland le 12-Aug-2013 21:00 (1012 lectures)

Pour celà il faut qu'il y ait un graphique sur le feuille ... ainsi en activant cette macro ...

 

1) on enregistre le graph - présent sur la feuille - dans le répertoire courant sous forme image (ici GIF)

2) si la cellule active contient un commentaire on le supprime (sinon y'a beug)

3) puis on rajoute l'image du graph dans le commentaire de la cellule active ...

 

Code à placer dans un module

module

 

Option Explicit

Sub Ajoute_Graph_Commentaire()
'VériTi
'http://www.excel.veriti.net
    Dim AncienCom As Variant
    Dim Chemin As String
    Dim graphique As Chart
'=======chemin de l'image ici répertoire courant
    Chemin = ThisWorkbook.Path & "Graph1.gif"
'=======on sélectionne le graph puis on l'enregistre (format Gif)
    Set graphique = Worksheets("Feuil1").ChartObjects(1).Chart
    graphique.Export Filename:=Chemin
'=======si la cellule contient un commentaire on supprime
    Set AncienCom = ActiveCell.Comment
    If Not AncienCom Is Nothing Then ActiveCell.Comment.Delete
    Set AncienCom = Nothing
'=======on place le nouveau commentaire avec l'image
    With ActiveCell
        .AddComment
        .Comment.Visible = False
        .Comment.Shape.Fill.UserPicture Chemin
    End With
End Sub

L'avantage, est que la mise à jour est dynamique ... bien entendu, le mieux est de placer cette procédure dans une macro évènementielle ... genre lorsqu'on sélectionne une cellule précise par exemple ...


Naviguer à travers les articles
Insérer dans une shape Article suivant
Note 0.00/5
Note: 0.0/5 (0 votes)
Les votes sont désactivés !
Les commentaires appartiennent à leurs auteurs. Nous ne sommes pas responsables de leur contenu.
Auteur Commentaire en débat

Astuces
Sélection d'articles par Catégorie
Userform
Feuille
Cel / Col / Lig
Souris
Impression
Images
Commentaires
Evènements
Fichier
Trucs et astuces
Divers
FAQ Acyd
carte des membres

Carte des membres

Menu Principal
Haut de page des téléchargements
Copyright 2013 Powered by XOOPS © 2001-2013