Commentaires adaptés aux cellules
Guy72
Messages postés
1048
Statut
Membre
-
Guy72 Messages postés 1048 Statut Membre -
Guy72 Messages postés 1048 Statut Membre -
Bonjour,
J'ai une macro excellente, (qui est de CCM) qui me permet de mettre un message automatiquement à coté d'une cellule.
Avec un extrait de ce code ci-dessous.
With .Cells(Ligne, Col)
.AddComment
.Comment.Text Text:=Texto
.Comment.Shape.OLEFormat.Object.Font.Name = "Arial"
.Comment.Shape.OLEFormat.Object.Font.Size = 6
.Comment.Shape.OLEFormat.Object.Font.FontStyle = "bold"
.Comment.Shape.TextFrame.AutoSize = True
.Comment.Shape.Top = .Top
.Comment.Shape.Left = .Left
End With
Mais au lieu d'avoir la taille automatique, puis-je avoir le message dans la cellule (dimension de la cellule L=90, H=36)
(si c'est possible bien sûr), sans doute à la place de la ligne de code ci-dessous ???
.Comment.Shape.TextFrame.AutoSize = True
Windows / Edge 110.0.1587.69
A voir également:
- Clément a partagé le fichier mme bovary. il a écrit des commentaires dans le document. quel est le 2e commentaire ?
- Commentaire dans Word : afficher, insérer, supprimer… - Guide
- Fichier bin - Guide
- Fichier epub - Guide
- Partage de photos - Guide
- Comment récupérer un document dans le presse-papier samsung - Guide
2 réponses
Bonjour,
With .Cells(Ligne, Col)
.AddComment
.Comment.Text Text:=Texto
.Comment.Shape.OLEFormat.Object.Font.Name = "Arial"
.Comment.Shape.OLEFormat.Object.Font.Size = 6
.Comment.Shape.OLEFormat.Object.Font.FontStyle = "bold"
.Comment.Shape.TextFrame.AutoSize = True
.Comment.Shape.Top = .Top
.Comment.Shape.Left = .Left
.Comment.Shape.Height = 36
.Comment.Shape.Width = 90
End With
