Liste déroulante avec image dans WORD

[sokour]

Bonjour,

Je dois réaliser une liste déroulante intégrant des images.

Pouvez vous m'aider.

Merci

 

[Zon]

Re : Liste déroulante avec image dans WORD

Salut,

Avec les controles Listview et imagelist c'est possible, regardes la démo en PJ..

ça fonctionne aussi sur excel...


A+++

 

[sokour]

Re : Liste déroulante avec image dans WORD

Le fichier joint ne marche pas il me demande une image dans C

 

[Zon]

Re : Liste déroulante avec image dans WORD

Re,


Il faut que tu modifies le nom des fichiers stockés
dans les constantes Img0 etc...

 

[sokour]

Re : Liste déroulante avec image dans WORD

Ce n'est pas vraiment une liste déroulante ca ouvre un formulaire

 

[Zon]

Re : Liste déroulante avec image dans WORD

Salut,

Ce n'est pas vraiment une liste déroulante ca ouvre un formulaire

pas 1 bonjour, pas un merci j'ai pas envie d'aller plus loin....alors que tu as la solution entre tes mains, il suffit juste de mettre les 2 controles ActiveX sur ton document....


A+++

 

[sokour]

Re : Liste déroulante avec image dans WORD

Désolé pour mes réponses un peu Brut...

Merci pour ton aide je vais rééssayer

 

[sokour]

Re : Liste déroulante avec image dans WORD

Rebonjour,

Lorsque je clique sur le bouton cliquez moi il me met les differentes images mais je peux pas selectionner comme une liste deroulante normale.

Merci de ton aide

 

[Zon]

Re : Liste déroulante avec image dans WORD

Salut,

as tu en exemple de ce que tu as fait ?

A+++

 

[sokour]

Re : Liste déroulante avec image dans WORD

Resalut,

J'ai pris ton fichier et changé les différents chemins concernant les images.

Puis je click sur le bouton cliquer moi, apparait la listview avec les images mais quand je click dessue msgbox apparait et n'est pas selectionne sur la feuille.

Peux tu m'éclairer?

Merci

 

[Zon]

Re : Liste déroulante avec image dans WORD

Re,

pour écrire du texte dans word tu peux utliser

     With Selection
        .TypeText Text:="Coucou XLD" '
        .TypeParagraph
    End With

il suffira de remplacer coucou XLD par le contenu la listview..

A+++

 

[sokour]

Re : Liste déroulante avec image dans WORD

Resalut,

Je t'ai mis en PJ ce que je veux réalisé :

Une liste avec le mot et l'image qui s'associe.

JE ne comprend pas comment incrementer le texte et les images.

Merci encore

 

[Zon]

Re : Liste déroulante avec image dans WORD

Salut,

il suffit de mettre un contrôle imagelist et imagecombobox sur ton document, le code dans Thisdocument comme suit.

Const Img0$ = "C:\sample1.bmp"
Const Img1$ = "C:\recycle.bmp"
Const Img2$ = "C:\sample0.bmp"
Dim TabImg()

Private Sub ImageCombo1_Click()
  MsgBox ImageCombo1.SelectedItem
End Sub

Private Sub ImageCombo1_Dropdown()
  If ImageCombo1.ComboItems.Count = 0 Then Init
End Sub

Private Sub Init()
   TabImg = Array(Img0, Img1, Img2)
    With ImageList1
    'Définit la dimension des images
      .ImageHeight = 32 'Hauteur
      .ImageWidth = 32 'Largeur
   
    'Charge les nouvelles images
   On Error Resume Next
      For I = 0 To UBound(TabImg)
        .ListImages.Add , "Cle" & I, LoadPicture(TabImg(I))
   If Err = 53 Then MsgBox "Je ne crois pas que " & Img0 & " existe chez vous ?": Exit Sub
      Next I
    End With
  
  Set ImageCombo1.ImageList = ImageList1
  For I = 0 To UBound(TabImg)
    ImageCombo1.ComboItems.Add , "Cle" & I, "Prenom" & I, I + 1, I, 1
  Next I
  
End Sub

Tu verras il faut certainement jouer avec les évènements mais sous Word il faut un module de classe...

A+++

 

[sokour]

Re : Liste déroulante avec image dans WORD

Resalut,

Je suis vraiment désoler de te redemander de l'aide mais vu que je débute dans Vba Word, comment tu met en place les controles Imagelist et Image combo

Merci

 

[Zon]

Re : Liste déroulante avec image dans WORD

Re,


sous XL 2007 menu developpeur, outils herites ,autres controles
sous XL 2003 Affichage barre d'outils/boites à outils controles /controles supplémentaires


A+++

PS si tu débutes en VBA ( sous Word notamment) je te déconseille dans 1 er temps d'utliser ces controles... tu peux commencer par la FAQ sur les listes deroulantes "normales", les tableaux VBA ....