image dans bouton vba

tototiti2008

XLDnaute Barbatruc

• 23 Août 2011

• #2

Re : image dans bouton vba

Bonjour motard,

Peut-être des pistes par là

https://www.excel-downloads.com/threads/label-dans-le-sens-vertical.153148/

 

Vote positif 0 Vote négatif

M

motard59

XLDnaute Junior

• 23 Août 2011

• #3

Re : image dans bouton vba

bonsoir
merci pour cette piste mais ce n est pas ce que je cherche je cherche quelque chose comme ca mais avec une image qui ce trouve sur la feuille à cote du nom
CommandButton1.Picture = LoadPicture("D:\Users\Alain\Pictures\serre\az.jpg")
merci

 

Vote positif 0 Vote négatif

forsanta

XLDnaute Nouveau

• 23 Août 2011

• #4

Re : image dans bouton vba

bonsoir

pourquoi n'utilise tu pas le control imaglist ??
tu charge et stock des image dans ce contrôle et en fonction de ta combobox l'image adéquate s'affiche ?

 

Vote positif 0 Vote négatif

M

motard59

XLDnaute Junior

• 23 Août 2011

• #5

Re : image dans bouton vba

bonsoir
je ne connais cette formule peux tu me mettre un exemple
merci

 

Vote positif 0 Vote négatif

forsanta

XLDnaute Nouveau

• 23 Août 2011

• #6

Re : image dans bouton vba

ici les image sont stocker directement sur l'userform

' on remplit imagelist1 avec les image
ImageList1.ListImages.Add , , Image1.Picture ' option
ImageList1.ListImages.Add , , Image2.Picture ' en attente
ImageList1.ListImages.Add , , Image3.Picture ' present
ImageList1.ListImages.Add , , Image4.Picture ' present payer

' 1 étant ici le numero d'index de l'image voulut dans le controle imaglist1 soit l'image option
CommandButton1.Picture = ImageList1.ListImages(1).Picture

ce tuto est bien fait pour apprendre a s'en servir ftp://ftp-developpez.com/silkyroad/VBA/ImageList/ImageList.pdf

 

Dernière édition: 23 Août 2011

Vote positif 0 Vote négatif

M

motard59

XLDnaute Junior

• 24 Août 2011

• #7

Re : image dans bouton vba

bonjour
merci je vois ca ce soir apres le boulot

 

Vote positif 0 Vote négatif

M

motard59

XLDnaute Junior

• 26 Août 2011

• #8

Re : image dans bouton vba

bonsoir
ta solution est pas mal j ai eu du mal mais ca fonctionnemais pas compatible avec la fonction suivante
'mode plein ecran
Dim ctl As Control
Dim ratiow As String
Dim ratioh As String
ratiow = Application.Width / Me.Width
ratioh = Application.Height / Me.Height
Me.Left = 0
Me.Top = 0
Me.Width = Application.Width
Me.Height = Application.Height
For Each ctl In Me.Controls
ctl.Left = ctl.Left * ratiow
ctl.Top = ctl.Top * ratioh
ctl.Width = ctl.Width * ratiow
ctl.Height = ctl.Height * ratioh
ctl.FontSize = ctl.FontSize * ratioh
Next

 

Vote positif 0 Vote négatif

M

motard59

XLDnaute Junior

• 27 Août 2011

• #9

Re : image dans bouton vba

bonjour
pour ceux que ca interresse il suffit de mettre les images dans un autre userform et de les appeler comme ca la formule ci dessu fonctionne pour une adaptation automatique à la taille de l'ecran

 

Vote positif 0 Vote négatif