XL 2013 Modifier un commentaire

[maval]

Bonjour,

J'ai sur une feuille une liste de nom "1200" auquel je veut ajouter un commentaire à tous les noms. A chaque commentaire je doit modifier la taille. Est-il possible de modifier la taille une seul fois.

je vous remercie de votre aide

 

[chris]

Re : Modifier un commentaire

Bonjour

Si cela a un rapport avec https://www.excel-downloads.com/threads/image-au-survol-dune-cellule.20008756/ : on peut dimensionner dans le code (c'est déjà fait en fonction de la taille des images) mais il est préférable de préformater les images...

 

[maval]

Re : Modifier un commentaire

Bonjour Chris,

Oui cela est en fonction avec se code, j'aimerai que lorsque le commentaire s'ouvre qu'il est une dimension de 10cm Hauteur et 8cm largeur.
Bonne journée

 

[joel8301]

Re : Modifier un commentaire

Bonjour,

Essayez de faire un copier de l'exemple et un coller Format.
J'espère que cela fonctionnera ... ;-)

 

[chris]

Re : Modifier un commentaire

RE

Il aurait été plus simple de rester dans la fil initial. Si tes images n'ont pas cette taille, elles risquent d'être déformées ou incomplètes

Les lignes du code

    c.Comment.Shape.Width = o.Width
    c.Comment.Shape.Height = o.Height

donnent la taille du commentaire

On peut remplacer par

    c.Comment.Shape.Width = valeur 'largeur en points
    c.Comment.Shape.Height = valeur 'hauteur en points

Les tailles d'image ne se calculent pas en cm mais en points et le rapport points/cm dépend de ta configuration d'affichage.

 

[maval]

Re : Modifier un commentaire

Re,

Dans le code il y a ceci;

    c.AddComment
    c.Comment.Shape.Width = o.Width
    c.Comment.Shape.Height = o.Height

Comment peut-on mettre Width=8cm
et Height=10cm en point?

Merci

 

[job75]

Re : Modifier un commentaire

Bonjour maval, chris,

Pourquoi n'avoir pas continué sur le même fil ?

Pour garder les proportions de la photo il ne faut modifier qu'une seule des 2 dimensions.

Et c'est l'image temporaire o qu'il faut alors modifier, pas le commentaire :

'-----
  Else
    Application.ScreenUpdating = False
    On Error Resume Next
    Set o = Me.Pictures.Insert(nomA & ".png") 'image temporaire, celle-ci
    Set o = Me.Pictures.Insert(nomA & ".jpg") 'sinon celle-la
    o.Height = 250 'environ 8 cm, une seule des 2 dimensions doit être modifiée
    c.ClearComments
    c.AddComment
    c.Comment.Shape.Width = o.Width
    c.Comment.Shape.Height = o.Height
    c.Comment.Shape.Fill.UserPicture nomA & ".png" 'ceci
    c.Comment.Shape.Fill.UserPicture nomA & ".jpg" 'sinon cela
    o.Delete
  End If

Fichier (5) joint.

A+

 

[maval]

Re : Modifier un commentaire

Bonjour Job

Le format du commentaire reste le même j'ai fait l'essaie sur quatre commentaire avec quatre photo différente sa de change rien

Bonne journée

 

[job75]

Re : Modifier un commentaire

Re,

C'est lors de la création de la photo que ça se passe.

Il faut double-cliquer sur la cellule contenant le commentaire et l'image.

Quant à la hauteur de 250 vous l'augmentez ou la diminuez en fonction de votre ordi.

A+

 

[maval]

Re : Modifier un commentaire

re,

OK merci