Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Mettre en gras ou en couleur

1 réponse
Avatar
Albator V
Bonjour a tous

j'ai la macro suivant :

Sub asstant()
Dim ass, OnUse
ass = assistant.Visible
OnUse = assistant.On
assistant.Visible = True
assistant.On = True

With assistant.NewBalloon
.Animation = 116
.Heading = "Blabla"
.Text = " Salut," & vbCr & vbCr _
& "reblabla"
.Show
End With

assistant.Visible = ass
assistant.On = OnUse
End Sub

Comment faire pour ecrire pour ecrire le "reblabla" en
gras ou meme en couleur ??

Merci d'avance

1 réponse

Avatar
isabelle
bonjour Albator,

c'est possible de souligner et de mettre en couleur.

With Assistant.NewBalloon
.Animation = 116
.Heading = "{cf 252}{ul 1}Blabla"
.Text = " Salut," & vbCr & vbCr _
& "{cf 249}reblabla"
.Show
End With

L'objet Balloon prend en charge le texte souligné et le texte auquel
l'une des 16 couleurs de la palette système est appliquée. Pour afficher
le texte souligné, utilisez la syntaxe {ul} ou {ul 1} ; utilisez {ul 0}
pour désactiver le soulignement. Pour modifier la couleur du texte,
faites précéder la chaîne de texte de la séquence de caractères {cf
nombre}, où nombre est l'un des numéros de couleurs répertoriés dans le
tableau suivant.

Numéro des couleurs système Couleur
0 Noir
1 Rouge foncé
2 Vert foncé
3 Jaune foncé
4 Bleu foncé
5 Magenta foncé
6 Cyan foncé
7 Gris pâle
248 Gris moyen
249 Rouge
250 Vert
251 Jaune
252 Bleu
253 Magenta
254 Cyan
255 Blanc

isabelle




Bonjour a tous

j'ai la macro suivant :

Sub asstant()
Dim ass, OnUse
ass = assistant.Visible
OnUse = assistant.On
assistant.Visible = True
assistant.On = True

With assistant.NewBalloon
.Animation = 116
.Heading = "Blabla"
.Text = " Salut," & vbCr & vbCr _
& "reblabla"
.Show
End With

assistant.Visible = ass
assistant.On = OnUse
End Sub

Comment faire pour ecrire pour ecrire le "reblabla" en
gras ou meme en couleur ??

Merci d'avance