VBA: 1.Changer compagnon office

Fermé

whirly Messages postés 32 Date d'inscription mardi 10 février 2009 Statut Membre Dernière intervention 22 septembre 2011 - 17 nov. 2009 à 15:00
whirly Messages postés 32 Date d'inscription mardi 10 février 2009 Statut Membre Dernière intervention 22 septembre 2011 - 19 nov. 2009 à 11:33

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

A voir également:

VBA: 1.Changer compagnon office
Incompatibilité de type vba ✓ - Forum Programmation
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

whirly Messages postés 32 Date d'inscription mardi 10 février 2009 Statut Membre Dernière intervention 22 septembre 2011 2
19 nov. 2009 à 11:33

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

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

VBA erreur 1004

Méthode find dans VBA - Recherche de données sous Excel

ouverture d'un fichier excel à partir d'un code VBA

Discussions similaires

Newsletters