Bonjour,
Edit (15/09/09) :
Une petite technique pour intégrer les images du ruban dans un champ de type pièce-jointe :
Créer une table TRibbonImg avec pour champ :
- id : champ texte
- img : pièce-jointe
Créer un formulaire simple FrmRibbonImg contenant les deux champs de la table TRibbonImg et ayant cette table comme source (utilisez l'assistant de création de table)
Ajoutez dans la table pour chaque image :
- l'id du contrôle de ruban dans le champ Id
- l'image en pièce-jointe dans le champ Img
Définissez l'attribut getImage de chaque contrôle contenant une image intégrée :
getImage="Ribbon_getImage"
Ajoutez cette procédure de callback dans un module :
1 2 3 4 5 6 7 8 9
|
Sub Ribbon_getImage(control As IRibbonControl, ByRef image)
On Error GoTo Gestion_Erreurs
DoCmd.OpenForm "FrmRibbonImg", , , "id=""" & control.Id & """", , acHidden
Set image = Forms("FrmRibbonImg").img.PictureDisp
Exit Sub
Gestion_Erreurs:
MsgBox "Image invalide pour le contrôle de ruban " & control.Id
End Sub |
Cette procédure ouvre le formulaire contenant les images en mode masqué, avec une condition where pour s'ouvrir sur l'id correspondant au contrôle de ruban.
La propriété PictureDisp du contrôle de formulaire contient l'image formatée pour le ruban.
Plus besoin de livrer les images dans un répertoire externe, elles sont inclues dans la base de données.
Partager