Connexion

Select the product you need help with

Comment faire pour d�finir le masque et les propri�t�s de l'image d'Office XP CommandBars

Num�ro d'article: 286460 - Voir les produits auxquels s'applique cet article

ATTENTION : Cet article est issu du syst�me de traduction automatique

Cliquez ici si vous souhaitez afficher en c�te � c�te l?article anglais et sa traduction automatique en fran�ais

Agrandir tout | R�duire tout

Microsoft Office XP introduit deux nouvelles propri�t�s � l'objet CommandBarButton : les propri�t�s de masque et une image . Vous pouvez utiliser ces propri�t�s pour placer d'images sur les contr�les barre de commande g�n�r�e personnalis�e.

note Ces propri�t�s sont �galement disponibles dans Microsoft Office 2003.

Retour au d�but | Envoyer des commentaires

Plus d'informations

Les propri�t�s de masque et Image sont d�finies en tant que type IPictureDisp , qui est un membre de la biblioth�que stdole. IPictureDisp utilise les m�thodes qui ne peut pas �tre marshal�s fronti�res de processus. Par cons�quent, les propri�t�s de masque et une image ne peuvent �tre appel�es in-process (les macros VBA, Automatisation compl�ments et DLL ActiveX s'ex�cuter dans processus). Reportez-vous � la section � R�f�rences � pour plus d'informations concernant ce probl�me.

L'exemple ci-dessous montre comment cr�er une macro compl�mentaire d'automation qui ajoute un bouton CommandBar avec une image masqu�.

�tapes pour cr�er des images pour l'image et le masque

D�marrez Microsoft Paint. Dans le menu Image , cliquez sur attributs . Modifiez la taille de l'image � 32x32 et cliquez sur OK .
Dessiner un visage jaune sur la surface de dessin. Remplir la zone qui entoure le cercle avec bleu.

R�duire cette imageAgrandir cette image
Enregistrez l'image en tant que Circle.bmp.
Pour cr�er le masque, remplir le cercle noir et remplir la zone en dehors du cercle blanc. Lorsque l'image avec le masque est ajout�e au contr�le CommandBar, les zones noires du masque sont visibles, tandis que les zones blanches sont transparentes.

R�duire cette imageAgrandir cette image
Enregistrez l'image en tant que Mask.bmp.

�tapes pour cr�er le compl�ment COM

D�marrez Visual Basic et cr�ez un nouveau compl�ment projet.
Dans le menu projet , cliquez sur R�f�rences . Si un � Microsoft Office � type de biblioth�que ant�rieures � la version que XP est s�lectionn�e, d�sactivez cette biblioth�que de type et s�lectionnez la biblioth�que de type pour Microsoft Office XP. Cliquez sur OK .
Dans l'Explorateur de projets, cliquez avec le bouton droit sur frmAddin , puis cliquez sur Supprimer frmAddin .
Dans l'Explorateur de projet, double-cliquez sur le concepteur de connexion . Pour l'application s�lectionnez Microsoft Excel et de comportement chargement initial , s�lectionnez d�marrage .

Dans le menu Affichage , cliquez sur le code et remplacez le code pour la macro, dans la :

Option Explicit

Dim oExcel As Object
Dim WithEvents oButton As Office.CommandBarButton

Private Sub AddinInstance_OnConnection(ByVal Application As Object, _
 ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, _
 ByVal AddInInst As Object, custom() As Variant)

  Dim oPic As stdole.IPictureDisp
  Dim oMask As stdole.IPictureDisp

  ' Load the picture and mask.
  Set oPic = LoadPicture(App.Path & "\circle.bmp")
  Set oMask = LoadPicture(App.Path & "\mask.bmp")

  ' Save an instance of our application.
  Set oExcel = Application
  ' Create a new button on the standard CommandBar.
  Set oButton = oExcel.CommandBars("Standard").Controls.Add(msoControlButton)
  With oButton
    ' Set a tag for the button.
    .Tag = "My Button"
    ' Set the event to fire when the button is pressed.
    .OnAction = "!<" & AddInInst.ProgId & ">"
    ' Set the picture property -- if you are using the Mask property, this
    ' property must be set before you set the Mask property.
    .Picture = oPic
    ' Set the Mask property.
    .Mask = oMask
    ' Show the button.
    .Visible = True
  End With
End Sub

Private Sub AddinInstance_OnDisconnection(ByVal RemoveMode As _
   AddInDesignerObjects.ext_DisconnectMode, custom() As Variant)

   ' Delete the button.
   oButton.Delete
   ' Release references.
   Set oButton = Nothing
   Set oExcel = Nothing
 End Sub

Private Sub oButton_Click(ByVal Ctrl As Office.CommandBarButton, _
  CancelDefault As Boolean)
  ' Our button was pressed.
  MsgBox "The button was pressed!"
End Sub

Enregistrez le projet et cr�er la macro compl�mentaire dans le dossier dans lequel les images sont stock�s.
D�marrez Excel. Un nouveau contr�le � un cercle jaune appara�t sur la CommandBar standard. Notez que la zone autour du cercle jaune est transparente.

Remarques suppl�mentaires

Comme pr�c�demment d�finie, l'interface IPictureDisp ne peut pas �tre marshal� fronti�res de processus. Tente de d�finir le r�sultat des images et masque propri�t�s out-of-process dans l'erreur suivante :

Erreur d'ex�cution '-2147418113(8000ffff) � :
La m�thode image de l'objet � _CommandBarButton � a �chou�

Par cons�quent, vous ne pouvez pas d�finir ces propri�t�s pour un objet CommandBarButton � partir de n'importe quel client Automation out-of-process ou d'un composant in-process qui s'ex�cute en mode d�bogage dans l'IDE de Visual Basic. Si vous ex�cutez l'exemple de macro compl�mentaire d�crite dans cet article � partir de l'IDE de Visual Basic, vous recevrez cette erreur. Pour �viter cette erreur lors du d�bogage, vous pouvez commenter les lignes de d�finir les propri�t�s des images et masque ou utilisez compilation conditionnelle, tel qu'un #If... Then... #Else directive.

Retour au d�but | Envoyer des commentaires

R�f�rences

Pour plus d'informations, cliquez sur les num�ros ci-dessous pour afficher les articles correspondants dans la Base de connaissances Microsoft :

238228

(http://support.microsoft.com/kb/238228/ )

Comment faire pour cr�er un Office 2000 compl�ment COM dans Visual Basic

230689

(http://support.microsoft.com/kb/230689/ )

SAMPLE : COMAddIn.exe Office 2000 compl�ment COM �crit en Visual C++

150034

(http://support.microsoft.com/kb/150034/ )

MOD�LE : LPPICTUREDISP ne peut pas �tre transmise dans des limites de processus

Pour plus d'informations, consultez le site de Web Microsoft suivant :

http://support.microsoft.com/ofd

(http://support.microsoft.com/ofd)

Retour au d�but | Envoyer des commentaires

Propri�t�s

Num�ro d'article: 286460 - Derni�re mise � jour: lundi 29 janvier 2007 - Version: 4.6

Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):

Microsoft Visual Basic Enterprise Edition for Windows 6.0
Microsoft Visual Basic 6.0 �dition professionnelle
Microsoft Office Access 2003
Microsoft Access 2002
Microsoft Office Excel 2003
Microsoft Excel 2002
Microsoft Office Word 2003
Microsoft Word 2002 Standard Edition
Microsoft Office FrontPage 2003
Microsoft FrontPage 2002 Standard
Microsoft Office Outlook 2003
Microsoft Outlook 2002 Standard
Microsoft Office PowerPoint 2003
Microsoft PowerPoint 2002 Standard

kbmt kbautomation kbhowto KB286460 KbMtfr

Traduction automatique

IMPORTANT : Cet article est issu du syst�me de traduction automatique mis au point par Microsoft (http://support.microsoft.com/gp/mtdetails). Un certain nombre d?articles obtenus par traduction automatique sont en effet mis � votre disposition en compl�ment des articles traduits en langue fran�aise par des traducteurs professionnels. Cela vous permet d?avoir acc�s, dans votre propre langue, � l?ensemble des articles de la base de connaissances r�dig�s originellement en langue anglaise. Les articles traduits automatiquement ne sont pas toujours parfaits et peuvent comporter des erreurs de vocabulaire, de syntaxe ou de grammaire (probablement semblables aux erreurs que ferait une personne �trang�re s?exprimant dans votre langue !). N�anmoins, mis � part ces imperfections, ces articles devraient suffire � vous orienter et � vous aider � r�soudre votre probl�me. Microsoft s?efforce aussi continuellement de faire �voluer son syst�me de traduction automatique.

La version anglaise de cet article est la suivante: 286460

(http://support.microsoft.com/kb/286460/en-us/ )

L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

Retour au d�but | Envoyer des commentaires