ajuster taille commentaire - macro à modifier ?

[starz]

Bonjour,
j'utilise depuis longtemps cette macro :

Sub imgComment()
Dim nom$
On Error Resume Next
For Each c In Selection
nom = c.Value
With c
.AddComment
.Comment.Shape.Fill.UserPicture ActiveWorkbook.Path & "\" & nom & ".jpg"
End With
Next
End Sub

mais je souhaiterai que quelqu'un d'entre vous m'aide pour que, quand j'execute ma macro, la taille du commentaire s'adapte à la taille de l'image.

merci

 

[tactic6]

Re : ajuster taille commentaire - macro à modifier ?

Bonjour
trouvé sur le forum avec la fonction recherche

'De: Dana DeLouis <dana2@email.msn.com>

Sub Comments_AutoSize()
  Dim MyComments As Comment
  Dim lArea As Long
  For Each MyComments In ActiveSheet.Comments
    With MyComments
      .Shape.TextFrame.AutoSize = True
      If .Shape.Width > 300 Then
        lArea = .Shape.Width * .Shape.Height
        .Shape.Width = 200
        ' An adjustment factor of 1.1 seems to work ok.
        .Shape.Height = (lArea / 200) * 1.1
      End If
    End With
  Next ' comment
End Sub

a adapter

 

[starz]

Re : ajuster taille commentaire - macro à modifier ?

ça ne fonctionne pas ?
ça ne met pas l'image à l'échelle 1

 

[starz]

Re : ajuster taille commentaire - macro à modifier ?

j'essai d'ajuster les valeurs, ça ne change rien.
Dans tous les cas, c'est pire qu'avant !!

Help me

 

[CB60]

Re : ajuster taille commentaire - macro à modifier ?

Bonsoir
regarde si cela te convient, une adaptation d'une macro de JB
mettre en A1 la valeur de la hauteur ( exemple 200)
mettre en A2 la valeur de la largeur ( exemple 150)

Sub PhotoCommentaire()
 Choixa = [a1].Value
 choixb = [a2].Value
  For Each photo In ActiveSheet.Comments
    photo.Shape.Height = Choixa 'HAUTEUR
    photo.Shape.Width = choixb ' LARGEUR
  Next photo
End Sub