image dans bouton vba

[motard59]

bonjour
je voudrais incremanter une image appartenent à une cellule dans un bouton vba
merci pour tout

 

[tototiti2008]

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/

 

[motard59]

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

 

[forsanta]

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 ?

 

[motard59]

Re : image dans bouton vba

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

 

[forsanta]

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

 

[motard59]

Re : image dans bouton vba

bonjour
merci je vois ca ce soir apres le boulot

 

[motard59]

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

 

[motard59]

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