est-il possible de changer la police de caractère dans une partie du texte
de mon compagnon office.
Merci d'avance.
John
P.S : un petit bout de code pour afficher le compagnon à la manière du
MsgBox
Public Function CompagnonBox(Texte As String, Optional Bouton As
MsoButtonSetType = msoButtonSetOK, Optional Titre As String = "", Optional
Anim As MsoAnimationType = msoAnimationBeginSpeaking) As
MsoBalloonButtonType
Dim OldState As Boolean
OldState = Assistant.visible
Assistant.visible = True
With Assistant.NewBalloon
.Text = Texte
.Heading = Titre
.Button = Bouton
.BalloonType = msoBalloonTypeButtons
.Mode = msoModeModal
.Icon = msoIconTip
.Animation = Anim
CompagnonBox = .Show
End With
Assistant.visible = OldState
End Function
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
gilbert
Bonjour
Est-ce que cela peut faire
Sub MessageCompagnon() Set Message = Assistant.NewBalloon With Message
.Heading = "Mon astuce {ul 1}perso{ul 0}" .Text = "Salut {cf 249}mon ami{cf 0} voici " & _ "un beau {cf 252}{ul 1}sujet{ul 0}{cf 0} à exploiter." .Show End With End Sub
Gilbert
"John Fuss" a écrit dans le message de news: chp898$aj8$
Bonjour à tous,
est-il possible de changer la police de caractère dans une partie du texte de mon compagnon office.
Merci d'avance.
John
P.S : un petit bout de code pour afficher le compagnon à la manière du MsgBox
Public Function CompagnonBox(Texte As String, Optional Bouton As MsoButtonSetType = msoButtonSetOK, Optional Titre As String = "", Optional Anim As MsoAnimationType = msoAnimationBeginSpeaking) As MsoBalloonButtonType Dim OldState As Boolean
OldState = Assistant.visible Assistant.visible = True With Assistant.NewBalloon .Text = Texte .Heading = Titre .Button = Bouton .BalloonType = msoBalloonTypeButtons .Mode = msoModeModal .Icon = msoIconTip .Animation = Anim CompagnonBox = .Show End With Assistant.visible = OldState End Function
Bonjour
Est-ce que cela peut faire
Sub MessageCompagnon()
Set Message = Assistant.NewBalloon
With Message
.Heading = "Mon astuce {ul 1}perso{ul 0}"
.Text = "Salut {cf 249}mon ami{cf 0} voici " & _
"un beau {cf 252}{ul 1}sujet{ul 0}{cf 0} à exploiter."
.Show
End With
End Sub
Gilbert
"John Fuss" <newskob650@yahoo.fr> a écrit dans le message de news:
chp898$aj8$1@s5.feed.news.oleane.net...
Bonjour à tous,
est-il possible de changer la police de caractère dans une partie du texte
de mon compagnon office.
Merci d'avance.
John
P.S : un petit bout de code pour afficher le compagnon à la manière du
MsgBox
Public Function CompagnonBox(Texte As String, Optional Bouton As
MsoButtonSetType = msoButtonSetOK, Optional Titre As String = "", Optional
Anim As MsoAnimationType = msoAnimationBeginSpeaking) As
MsoBalloonButtonType
Dim OldState As Boolean
OldState = Assistant.visible
Assistant.visible = True
With Assistant.NewBalloon
.Text = Texte
.Heading = Titre
.Button = Bouton
.BalloonType = msoBalloonTypeButtons
.Mode = msoModeModal
.Icon = msoIconTip
.Animation = Anim
CompagnonBox = .Show
End With
Assistant.visible = OldState
End Function
Sub MessageCompagnon() Set Message = Assistant.NewBalloon With Message
.Heading = "Mon astuce {ul 1}perso{ul 0}" .Text = "Salut {cf 249}mon ami{cf 0} voici " & _ "un beau {cf 252}{ul 1}sujet{ul 0}{cf 0} à exploiter." .Show End With End Sub
Gilbert
"John Fuss" a écrit dans le message de news: chp898$aj8$
Bonjour à tous,
est-il possible de changer la police de caractère dans une partie du texte de mon compagnon office.
Merci d'avance.
John
P.S : un petit bout de code pour afficher le compagnon à la manière du MsgBox
Public Function CompagnonBox(Texte As String, Optional Bouton As MsoButtonSetType = msoButtonSetOK, Optional Titre As String = "", Optional Anim As MsoAnimationType = msoAnimationBeginSpeaking) As MsoBalloonButtonType Dim OldState As Boolean
OldState = Assistant.visible Assistant.visible = True With Assistant.NewBalloon .Text = Texte .Heading = Titre .Button = Bouton .BalloonType = msoBalloonTypeButtons .Mode = msoModeModal .Icon = msoIconTip .Animation = Anim CompagnonBox = .Show End With Assistant.visible = OldState End Function
Modeste
Bonsour ® gilbert ;-))) ouais super .... ou se trouve la doc ??? merci.... @+
-----Message d'origine----- Bonjour
Est-ce que cela peut faire
Sub MessageCompagnon() Set Message = Assistant.NewBalloon With Message
est-il possible de changer la police de caractère dans une partie du texte
de mon compagnon office.
Merci d'avance.
John
P.S : un petit bout de code pour afficher le compagnon à la manière du
MsgBox
Public Function CompagnonBox(Texte As String, Optional Bouton As
MsoButtonSetType = msoButtonSetOK, Optional Titre As String = "", Optional
Anim As MsoAnimationType = msoAnimationBeginSpeaking) As
MsoBalloonButtonType Dim OldState As Boolean
OldState = Assistant.visible Assistant.visible = True With Assistant.NewBalloon .Text = Texte .Heading = Titre .Button = Bouton .BalloonType = msoBalloonTypeButtons .Mode = msoModeModal .Icon = msoIconTip .Animation = Anim CompagnonBox = .Show End With Assistant.visible = OldState End Function
.
gilbert
Bonjour
regarde dans l'aide de Assistant.NewBalloon
salut
Gilbert "Modeste" a écrit dans le message de news: 07d801c49654$1da6dab0$ Bonsour ® gilbert ;-))) ouais super .... ou se trouve la doc ??? merci.... @+
-----Message d'origine----- Bonjour
Est-ce que cela peut faire
Sub MessageCompagnon() Set Message = Assistant.NewBalloon With Message
est-il possible de changer la police de caractère dans une partie du texte
de mon compagnon office.
Merci d'avance.
John
P.S : un petit bout de code pour afficher le compagnon à la manière du
MsgBox
Public Function CompagnonBox(Texte As String, Optional Bouton As
MsoButtonSetType = msoButtonSetOK, Optional Titre As String = "", Optional
Anim As MsoAnimationType = msoAnimationBeginSpeaking) As
MsoBalloonButtonType Dim OldState As Boolean
OldState = Assistant.visible Assistant.visible = True With Assistant.NewBalloon .Text = Texte .Heading = Titre .Button = Bouton .BalloonType = msoBalloonTypeButtons .Mode = msoModeModal .Icon = msoIconTip .Animation = Anim CompagnonBox = .Show End With Assistant.visible = OldState End Function
.
Bonjour
regarde dans l'aide de Assistant.NewBalloon
salut
Gilbert
"Modeste" <gee-dee-@discussions.microsoft.com> a écrit dans le message de
news: 07d801c49654$1da6dab0$a401280a@phx.gbl...
Bonsour ® gilbert ;-)))
ouais super ....
ou se trouve la doc ???
merci....
@+
-----Message d'origine-----
Bonjour
Est-ce que cela peut faire
Sub MessageCompagnon()
Set Message = Assistant.NewBalloon
With Message
Gilbert "Modeste" a écrit dans le message de news: 07d801c49654$1da6dab0$ Bonsour ® gilbert ;-))) ouais super .... ou se trouve la doc ??? merci.... @+
-----Message d'origine----- Bonjour
Est-ce que cela peut faire
Sub MessageCompagnon() Set Message = Assistant.NewBalloon With Message
est-il possible de changer la police de caractère dans une partie du texte
de mon compagnon office.
Merci d'avance.
John
P.S : un petit bout de code pour afficher le compagnon à la manière du
MsgBox
Public Function CompagnonBox(Texte As String, Optional Bouton As
MsoButtonSetType = msoButtonSetOK, Optional Titre As String = "", Optional
Anim As MsoAnimationType = msoAnimationBeginSpeaking) As
MsoBalloonButtonType Dim OldState As Boolean
OldState = Assistant.visible Assistant.visible = True With Assistant.NewBalloon .Text = Texte .Heading = Titre .Button = Bouton .BalloonType = msoBalloonTypeButtons .Mode = msoModeModal .Icon = msoIconTip .Animation = Anim CompagnonBox = .Show End With Assistant.visible = OldState End Function
.
John Fuss
{ul 0-1} pour le soulignement {cf 0-256}pour la couleur de la police
mais comment changer la police en elle-même, je voudrai faire un barre de progression en utilisant des caractères Wingdings.
C'est possible ?
John
"gilbert" a écrit dans le message de news:
Bonjour
regarde dans l'aide de Assistant.NewBalloon
salut
Gilbert "Modeste" a écrit dans le message de news: 07d801c49654$1da6dab0$ Bonsour ® gilbert ;-))) ouais super .... ou se trouve la doc ??? merci.... @+
-----Message d'origine----- Bonjour
Est-ce que cela peut faire
Sub MessageCompagnon() Set Message = Assistant.NewBalloon With Message
est-il possible de changer la police de caractère dans une partie du texte
de mon compagnon office.
Merci d'avance.
John
P.S : un petit bout de code pour afficher le compagnon à la manière du
MsgBox
Public Function CompagnonBox(Texte As String, Optional Bouton As
MsoButtonSetType = msoButtonSetOK, Optional Titre As String = "", Optional
Anim As MsoAnimationType = msoAnimationBeginSpeaking) As
MsoBalloonButtonType Dim OldState As Boolean
OldState = Assistant.visible Assistant.visible = True With Assistant.NewBalloon .Text = Texte .Heading = Titre .Button = Bouton .BalloonType = msoBalloonTypeButtons .Mode = msoModeModal .Icon = msoIconTip .Animation = Anim CompagnonBox = .Show End With Assistant.visible = OldState End Function
.
{ul 0-1} pour le soulignement
{cf 0-256}pour la couleur de la police
mais comment changer la police en elle-même, je voudrai faire un barre de
progression en utilisant des caractères Wingdings.
C'est possible ?
John
"gilbert" <stpspamgilbert.roinel@wanadoo.fr> a écrit dans le message de
news:uCTkzallEHA.1356@TK2MSFTNGP09.phx.gbl...
Bonjour
regarde dans l'aide de Assistant.NewBalloon
salut
Gilbert
"Modeste" <gee-dee-@discussions.microsoft.com> a écrit dans le message de
news: 07d801c49654$1da6dab0$a401280a@phx.gbl...
Bonsour ® gilbert ;-)))
ouais super ....
ou se trouve la doc ???
merci....
@+
-----Message d'origine-----
Bonjour
Est-ce que cela peut faire
Sub MessageCompagnon()
Set Message = Assistant.NewBalloon
With Message
{ul 0-1} pour le soulignement {cf 0-256}pour la couleur de la police
mais comment changer la police en elle-même, je voudrai faire un barre de progression en utilisant des caractères Wingdings.
C'est possible ?
John
"gilbert" a écrit dans le message de news:
Bonjour
regarde dans l'aide de Assistant.NewBalloon
salut
Gilbert "Modeste" a écrit dans le message de news: 07d801c49654$1da6dab0$ Bonsour ® gilbert ;-))) ouais super .... ou se trouve la doc ??? merci.... @+
-----Message d'origine----- Bonjour
Est-ce que cela peut faire
Sub MessageCompagnon() Set Message = Assistant.NewBalloon With Message
