Taille d'une info bulle pour shape

Bonjour,

J'ai crée des shapes dans ma feuille.

Puis j'ai ajouté des commentaires avec info bulle par Hyperlinks.Add ...

Question : Comment modifier la hauteur du commentaire, la largeur est ajustée automatiquement, mais la hauteur est fixe.

Je sais comment faire avec une info-bulle sur une cellule :

Cells(noLig, 6).Comment.Shape.Select

Selection.ShapeRange.ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft

Selection.ShapeRange.ScaleHeight 4, msoFalse, msoScaleFromTopLeft

Mais ça ne marche pas avec une shape.

Quelqu'un sait-il comment faire ?

Merci d'avance.

Bonjour,

Je ne sais pas si cela va t'aider beaucoup, mais essaie et teste.

Public Sub Comments_AutoSize()
Dim Cmt As Comment
Dim lHeight As Long
    For Each Cmt In ActiveSheet.Comments
        With Cmt
            .Shape.TextFrame.AutoSize = True
            If .Shape.Width > 300 Then
                lHeight = .Shape.Width * .Shape.Height
                .Shape.Width = 200
                ' facteur ajustement de 1.1
                .Shape.Height = (lHeight / 200) * 1.1
            End If
        End With
    Next Cmt
End Sub

Bonsoir Jean-Eric,

Ton code ne donne rien, aucun commentaire n'est trouvé dans la feuille, on n'entre pas dans la boucle.

Il y a bien des commentaires, ils s'affichent en info bulle, mais ils semblent ne pas exister.

Par contre horizontalement, l'autosize fonctionne.

Alors j'ai essayé de faire 5 colonnes, afin que toutes mes données tiennent dans la fenêtre, mais je me heurte à un autre problème.

Les colonnes ne sont pas rectilignes dues à la police de caractère. J'ai indiqué au niveau du classeur d'utiliser Consolas qui est une police à largeur fixe, mais elle n'est pas utilisée, et Chr(9) (tabulation) est ignorée. Alors que Chr(10) ligne suivante fonctionne.

Merci de ta réponse.

Bonne nuit.

Bonjour,

Pour expliciter ma demande, je joins le code de 2 sub :

AddComm1 crée une info bulle sur 1 colonne. Comment augmenter la hauteur de la bulle ?

AddComm2 Crée une infobulle sur 2 colonnes. Comment faire des colonnes alignées (utiliser une police taille fixe).

Merci de vos suggestions.

Bonsoir,

Laissez tomber.

Merci à ceux qui se sont penchés sur mon problème.