Insérer un commentaire et y afférer dessuite une image au choix (parcourir...)

[anthoYS]

Bonjour,

Est-il possible de lancer une macro qui permettrai d'ajouter un commentaire dans la cellule active en y ajoutant une image.

Car la procédure est trop longue (format de commentaire/couleur et traits/couleurs/motifs et texture/image et enfin selectionner une image).

Merci d'avance 🙂

 

[Guest]

Re : Insérer un commentaire et y afférer dessuite une image au choix (parcourir...)

Bonjour,

Vois avec l'enregistreur de macro. Simple et rapide. Ensuite adapte.

A+

 

[tbft]

Re : Insérer un commentaire et y afférer dessuite une image au choix (parcourir...)

Bonjour

regarde
https://www.excel-downloads.com/thr...n-commentaire-le-contenu-dune-cellule.151263/

 

[anthoYS]

Re : Insérer un commentaire et y afférer dessuite une image au choix (parcourir...)

re,

merci malgré tout,

j'ai essayé ;

mais je sais pas trop faire...

sinon je ne viendrais pas demander ici ;

Sub insertComment()
'
' insertComment Macro
' ajout d'une image en com
'
' Touche de raccourci du clavier: Ctrl+w
'
    Range("F53").Select
   [COLOR=Yellow] Range("F53").AddComment[/COLOR]
    Range("F53").Comment.Visible = False
    Range("F53").Comment.Text Text:=""
    With Selection.Font
        .Name = "Tahoma"
        .FontStyle = "Gras"
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    Selection.ShapeRange.ScaleWidth 1.81, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 2.61, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.Fill.Transparency = 0#
    Selection.ShapeRange.Line.Weight = 0.75
    Selection.ShapeRange.Line.DashStyle = msoLineSolid
    Selection.ShapeRange.Line.Style = msoLineSingle
    Selection.ShapeRange.Line.Transparency = 0#
    Selection.ShapeRange.Line.Visible = msoTrue
    Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
    Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)
    Selection.ShapeRange.Fill.BackColor.RGB = RGB(255, 255, 225)
    Selection.ShapeRange.Fill.UserPicture _
        "C:\Documents and Settings\609012249\Mes documents\Copenhagen_center_street.jpg"
    Selection.ShapeRange.ScaleWidth 1.01, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 1.25, msoFalse, msoScaleFromTopLeft
End Sub

erreur 1004.

Je n'ai aucune idée ; je souhaite ajouter un commentaire et directement choisir l'image, et ce dans la cellule ou je ferai le raccourci.

ici, ça ne marche pas, car bien sur, la cellule variera ainsi que le choix de l'image...

merci,
A+

 

[anthoYS]

Re : Insérer un commentaire et y afférer dessuite une image au choix (parcourir...)

Oui,

D'accord tbft, mais pour moi il s'agit d'une image à choisir et non du contenu d'une cellule.

merci encore

 

[tbft]

Re : Insérer un commentaire et y afférer dessuite une image au choix (parcourir...)

en ce qui concerne
Range("F53").AddComment
cette ligne attend une chaine.....

 

[BOISGONTIER]

Re : Insérer un commentaire et y afférer dessuite une image au choix (parcourir...)

Bonjour,

http://boisgontierjacques.free.fr/pages_site/commentaire.htm#PhotosComment
http://boisgontierjacques.free.fr/fichiers/Commentaires/InserePhotoCommentaire.zip

JB

 

[anthoYS]

Re : Insérer un commentaire et y afférer dessuite une image au choix (parcourir...)

Merci Boisgontier, mais n'y a t-il pas plus simple?

Parce que j'ai déja essayé mais je n'y parviens que difficilement... ;
Et puis il faut un dossier avec les images à porté...
donc, comment faire autrement?

Merci d'avance!

 

[tbft]

Re : Insérer un commentaire et y afférer dessuite une image au choix (parcourir...)

Peut être en passant par le presse papier et avec les images sur une feuille caché????

 

[BOISGONTIER]

Re : Insérer un commentaire et y afférer dessuite une image au choix (parcourir...)

Sub essai()
 nf = Application.GetOpenFilename("Fichiers jpg,*.jpg")
 With ActiveCell
    .ClearComments
    .AddComment
    .Comment.Shape.Fill.UserPicture nf
    .Comment.Shape.Height = 50
    .Comment.Shape.Width = 50
    .Comment.Shape.ScaleHeight 1.2, msoFalse, msoScaleFromTopLeft
 End With
End Sub

JB

 

[anthoYS]

Re : Insérer un commentaire et y afférer dessuite une image au choix (parcourir...)

Re,

D'accord merci, j'essaierai plus tard.

 

[anthoYS]

Re : Insérer un commentaire et y afférer dessuite une image au choix (parcourir...)

Merci impeccable ça.

Sauf dernière chose qui serait parfaite, c'est que la taille des images varient, j'aimerai, que la macro permette de régler la taille (le cadre) manuellement de préférence, pas en écrivant les dimensions, mais en étirant le commentaire, après l'ajout de l'image.

Merci encore.

ça serait dans l'idéal, mais merci déjà beaucoup!

 

[BOISGONTIER]

Re : Insérer un commentaire et y afférer dessuite une image au choix (parcourir...)

Voir PJ

http://boisgontierjacques.free.fr/pages_site/commentaire.htm#InsereImage5

JB