VBA: 1.Changer compagnon office
whirly
Messages postés
32
Statut
Membre
-
whirly Messages postés 32 Statut Membre -
whirly Messages postés 32 Statut Membre -
Bonjour,
Comment faire apparaître VBA un compagnon office autre que le trombone? (bille clown, robot etc.)
Actuellement j'utilise ceci:
assistant.Visible = True
With assistant.NewBalloon
.BalloonType = msoBalloonTypeNumbers
.Icon = msoIconTip
.Button = msoButtonSetOK
.Heading = "blablabla
.Labels(1).Text = "blabla"
.Show
End With
J'aimerais aussi savoir comment lancer l'animation du compagnon (de manière aléatoire)
MERCI
Configuration: Office 2003
Comment faire apparaître VBA un compagnon office autre que le trombone? (bille clown, robot etc.)
Actuellement j'utilise ceci:
assistant.Visible = True
With assistant.NewBalloon
.BalloonType = msoBalloonTypeNumbers
.Icon = msoIconTip
.Button = msoButtonSetOK
.Heading = "blablabla
.Labels(1).Text = "blabla"
.Show
End With
J'aimerais aussi savoir comment lancer l'animation du compagnon (de manière aléatoire)
MERCI
Configuration: Office 2003
A voir également:
- VBA: 1.Changer compagnon office
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Find vba - Astuces et Solutions
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
1 réponse
Je m'auto répond:
'***Apparition de l'assistant Smiley***
With assistant
.On = True
.Filename = "dot.acs"
.Animation = msoAnimationBeginSpeaking
.AssistWithHelp = True
.GuessHelp = True
.FeatureTips = False
.Visible = True
End With
'Autres types d'assistant (plutôt que le smiley dot.acs)(deux endroits à changer dans le code)
'clippit.acs (le trombonne)
'F1.acs (le robot)
'logo.acs (Logo microsoft puzzle)
'mnature.acs (la terre)
'offcat.acs (le chat)
'rocky.acs (le chien)
'***Animation du Smiley***
assistant.Animation = msoAnimationAppear
'Exemples d'animations
' assistant.Animation = msoAnimationAppear
' assistant.Animation = msoAnimationEmptyTrash
' assistant.Animation = msoAnimationGetArtsy
' assistant.Animation = msoAnimationThinking
'***Apparition de l'assistant Smiley***
With assistant
.On = True
.Filename = "dot.acs"
.Animation = msoAnimationBeginSpeaking
.AssistWithHelp = True
.GuessHelp = True
.FeatureTips = False
.Visible = True
End With
'Autres types d'assistant (plutôt que le smiley dot.acs)(deux endroits à changer dans le code)
'clippit.acs (le trombonne)
'F1.acs (le robot)
'logo.acs (Logo microsoft puzzle)
'mnature.acs (la terre)
'offcat.acs (le chat)
'rocky.acs (le chien)
'***Animation du Smiley***
assistant.Animation = msoAnimationAppear
'Exemples d'animations
' assistant.Animation = msoAnimationAppear
' assistant.Animation = msoAnimationEmptyTrash
' assistant.Animation = msoAnimationGetArtsy
' assistant.Animation = msoAnimationThinking
