Discussion :

[NEC14]

Bonjour à tous,

J'ai un bouton qui a ces dimensions : Height 296 - Width 369
A l'intérieur une image que je voudrai dimensionner au bouton, j'ai essayé avec les propriétés du bouton mais je n'y parvient pas.

Auriez-vous une solution à me proposer s'il vous plait ?

Merci par avance

[aalex_38]

Et en mettant la propriété du bouton a autosize = true ?

[NEC14]

Dans ta solution, c'est le bouton qui s'adapte à l'image, et moi je souhaite le contraire, adapter l'image au bouton
Toutefois merci pour ta réponse

[aalex_38]

Redimensionner un bouton alors en laissant la proprièté :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub UserForm_Initialize()
With CommandButton1
.Height = 500
.Width = 500
 
'Mess = Mess & .PicturePosition & vbCrLf
'Mess = Mess & .Left & vbCrLf
'Mess = Mess & .Top & vbCrLf
'Mess = Mess & .Height & vbCrLf
Mess = Mess & .Width & vbCrLf
Mess = Mess & .Picture.Height & vbCrLf
Mess = Mess & .Picture.Width & vbCrLf
 End With
Debug.Print Mess
End Sub

[NEC14]

Le bouton se trouve sur une feuille, non avec un UserForm.

[aalex_38]

Dans un bouton de feuille (controle activex) ceci fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub CommandButton1_Click()
With CommandButton1
.Height = 296
.Width = 369
End With
End Sub

Tu peux aussi préciser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.PicturePosition = 0

[NEC14]

Bonjour aalex38,

Merci pour ton aide. C'est ok