XL 2013 Modifier un commentaire

chris

XLDnaute Barbatruc

• 29 Mai 2016

• #2

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...

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 29 Mai 2016

• #3

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

 

Vote positif 0 Vote négatif

J

joel8301

XLDnaute Nouveau

• 29 Mai 2016

• #4

Re : Modifier un commentaire

Bonjour,

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

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 29 Mai 2016

• #5

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

Code:

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

donnent la taille du commentaire

On peut remplacer par

Code:

    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.

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 29 Mai 2016

• #6

Re : Modifier un commentaire

Re,

Dans le code il y a ceci;

Code:

    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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 29 Mai 2016

• #7

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 :

Code:

'-----
  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+

 

Pièces jointes

• Image au survol d'une cellule(5).xlsm

  46.6 KB · Affichages: 24

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 29 Mai 2016

• #8

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 29 Mai 2016

• #9

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+

 

Dernière édition: 29 Mai 2016

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 29 Mai 2016

• #10

Re : Modifier un commentaire

re,

OK merci

 

Vote positif 0 Vote négatif