format text commentaire

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

jean paul

XLDnaute Junior
bonsoir à tous

J'utilise ce code dérivé d'un exemple de l'excellent Boisgonthier pour mettre à jour des commentaires ,j'insère une photo +le texte des 4 cellules adjacentes dans le commentaire ,mais pour une meilleur lisibilité du texte sur la photo je souhaite avoir une police bleu de taille 12,jai bien essayé divers code sans résultat
merci de vos réponses
cordialement JP
Sub Trombine()
Dim x
Dim xx
Dim xxx
Dim xxxx
Dim y
Dim c
For Each c In Range("A2", [A65000].End(xlUp))
x = c.Offset(0, 1)
xx = c.Offset(0, 2)
xxx = c.Offset(0, 3)
xxxx = c.Offset(0, 4)
y = c.Offset(0, 5)


repertoire = ThisWorkbook.Path & "\"

c.ClearComments
c.AddComment
c.Comment.Text Text:="" & [x] & Chr(10) & [xx] & Chr(10) & [xxx] & Chr(10) & [xxxx] & Chr(10) & [y] & " "
fichier = CStr(c.Value) & ".jpg"
If Dir(repertoire & fichier) <> "" Then
c.Comment.Shape.Fill.UserPicture repertoire & fichier

c.Comment.Shape.ScaleHeight 2, msoFalse, msoScaleFromTopLeft
c.Comment.Shape.ScaleWidth 3, msoFalse, msoScaleFromTopLeft


End If
Next

End Sub
 

Pièces jointes

Re : format text commentaire

Bonsoir,

Tu peux essayer ceci :

.....
c.Comment.Text Text:="" & [x] & Chr(10) & [xx] & Chr(10) & [xxx] & Chr(10) & [xxxx] & Chr(10) & [y] & " "
c.Comment.Shape.TextFrame.Characters.Font.Size = 12
c.Comment.Shape.TextFrame.Characters.Font.ColorIndex = 5

fichier = CStr(c.Value) & ".jpg"
.....
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Power Query power query
Réponses
22
Affichages
4 K
Réponses
1
Affichages
691
Réponses
12
Affichages
2 K
Réponses
18
Affichages
7 K
Retour