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 >Commentaires > Image en transparence dans un commentaire

Image en transparence dans un commentaire

Publié par veriland le 11-Aug-2013 16:20 (715 lectures)

en activant cette macro ...

 

1) on vérifie la présence d'un commentaire dans la cellule active ... si oui on supprime

2) on ouvre la boite de dialogue "Ouvrir"

3)on insère l'image dans le commentaire de la cellule active ...

 

Code à placer dans un module

module

Option Explicit

'format image autorisé
Const ImgFileFormat = "Image Files (*.bmp;*.gif;*.tif;*.jpg;*.jpeg)," & _
    "*bmp;*gif;*.tif;*.jpg;*.jpeg"

Sub AjoutImage()
'VeriTi
'http://www.excel.veriti.net
    Dim Image As Variant
    Dim Picture As String
    'on vérifie si la cellule contient un commentaire
    Set Image = ActiveCell.Comment
    If Not Image Is Nothing Then ActiveCell.Comment.Delete
    Set Image = Nothing
    'ouverture boite de dialogue
    Picture = Application.GetOpenFilename(ImgFileFormat)
    'on insère l'image sélectionnée
    With ActiveCell
        .AddComment
        .Comment.Visible = False
        .Comment.Shape.Fill.Transparency = 0#
        .Comment.Shape.Fill.UserPicture Picture
    End With

End Sub

dans cette procédure il n'y a pas de test d'erreur, ce qui ne va pas manquer d'en créer si aucune sélection d'image n'est faite ... enfin le but ici, est forcément d'en sélectionner une ...


Naviguer à travers les articles
Article précédent Commentaire conditionnel Inscrire le date dans le commentaire de la cellule active 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