XL 2010 Centrer une image dans un Userform

[Toubabou]

Bonjour à tous,
Dans un UserForm13, j'ai une Image1.
Pourriez-vous me ire comment faire pour avoir Image1 automatiquement centrée dans UserForm13?
Merci beaucoup
Toubabou

 

[jmfmarques]

Bonjour
Exactement comme pour centrer une boîte d'allumettes dans un rectangle :
exemple pour le haut : (hauteur_rectangle - hauteur_boite_allumettes)/2
La seule chose qui justifierait vraiment ta question serait peut-être la détermination des dimensions du contenant (ton userform)
Ce sont ses propriétés InsideWidth et InsideHeight
Yapluka

 

[Toubabou]

Bonjour
Exactement comme pour centrer une boîte d'allumettes dans un rectangle :
exemple pour le haut : (hauteur_rectangle - hauteur_boite_allumettes)/2
La seule chose qui justifierait vraiment ta question serait peut-être la détermination des dimensions du contenant (ton userform)
Ce sont ses propriétés InsideWidth et InsideHeight
Yapluka

Pardon, je ne comprends pas trop ta réponse. Mo je voudrais juste que Image1 soit centré automatiquement

 

[jmfmarques]

Hé bien -->> tu mets dans l'évènement Activate de ton userform les instructions nécessaires pour définir la propriété Top et la propriété Left de ton Image.
Je t'en ai indiqué le calcul et souhaite voir ce que tu auras au moins tenté de faire sur cette base.

 

[Toubabou]

Hé bien -->> tu mets dans l'évènement Activate de ton userform les instructions nécessaires pour définir la propriété Top et la propriété Left de ton Image.
Je t'en ai indiqué le calcul et souhaite voir ce que tu auras au moins tenté de faire sur cette base.

Ok pardon, mais si je demande de l'aide, c'est que je ne sais absolument pas faire.

 

[Toubabou]

Ok pardon, mais si je demande de l'aide, c'est que je ne sais absolument pas faire.

 With Me.Image1
        .Top = (Me.InsideHeight - Me.Image1.Height) / 1
        .Left = (Me.InsideWidth - Me.Image1.Width) / 1
    End With

Voilà le code que j'ai trouvé, je pense qu'il faut modifier quelque chose pour centrer mon image mais je ne sais pas quoi

 

[pierrejean]

Bonjour toubabou
Salut jmfmarques
A tester:

Private Sub UserForm_Initialize()
Me.Image1.Left = (Me.Width - Me.Image1.Width) / 2
Me.Image1.Top = (Me.InsideHeight - Me.Image1.Height) / 2
End Sub

 

[Toubabou]

Bonjour toubabou
Salut jmfmarques
A tester:

Private Sub UserForm_Initialize()
Me.Image1.Left = (Me.Width - Me.Image1.Width) / 2
Me.Image1.Top = (Me.InsideHeight - Me.Image1.Height) / 2
End Sub

Bonjour PierreJean,
Désolé, cela ne centre pas mon Image1

 

[jmfmarques]

Voilà le code que j'ai trouvé

With Me.Image1
.Top = (Me.InsideHeight - Me.Image1.Height) / 1
.Left = (Me.InsideWidth - Me.Image1.Width) / 1
End With

je pense qu'il faut modifier quelque chose pour centrer mon image

Ce que j'ai mis en rouge dans ton code, à comparer à ce que je t'ai dit plus haut (et que tu n'as pas lu ?) :

Exactement comme pour centrer une boîte d'allumettes dans un rectangle :
exemple pour le haut : (hauteur_rectangle - hauteur_boite_allumettes)/2

 

[Toubabou]

With Me.Image1
.Top = (Me.InsideHeight - Me.Image1.Height) / 1
.Left = (Me.InsideWidth - Me.Image1.Width) / 1
End With


Ce que j'ai mis en rouge dans ton code, à comparer à ce que je t'ai dit plus haut (et que tu n'as pas lu ?) :

J'ai l'impression que cela règle uniquement la hauteur et largeur de mon Image1 et non pas sa position dans UserForm13

 

[jmfmarques]

Lis-tu au moins ce que j'écris ? Je n'en ai vraiment pas l'impression, sais-tu ?

 

[Toubabou]

Lis-tu au moins ce que j'écris ? Je n'en ai vraiment pas l'impression, sais-tu ?

With Me.Image1
        .Top = (Me.InsideHeight - Me.Image1.Height) / 2
        .Left = (Me.InsideWidth - Me.Image1.Width) / 2
    End With

Je pense avoir compris qu'il fallait changer les "1" en "2". Chose que j'ai fait, mais pour ce résultat:

 

[jmfmarques]

tu ne montres pas dans quelle procédure évènementielle tu as mis ces instructions ...
As-tu pris la peine, également, de lire ce que j'en ai dit plus haut :

tu mets dans l'évènement Activate de ton userform les instructions nécessaires pour définir la propriété Top et la propriété Left de ton Image.

 

[Toubabou]

tu ne montres pas dans quelle procédure évènementielle tu as mis ces instructions ...
As-tu pris la peine, également, de lire ce que j'en ai dit plus haut :

Option Explicit

Private Sub ComboBox1_Change()
ComboBox1.DropDown
'''''''''POUR RENDRE "IMAGE1"? INVISIBLE''''''''''
Image1.Visible = True
''''''''''''''''''''''''''''''''''''''''''''''''''
If ComboBox1 = "" Then Image1.Picture = LoadPicture(""): Exit Sub
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\Documents\Photos botanique\" & "\" & IIf(ComboBox1.ListIndex = -1, "inexistante", ComboBox1) & ".jpg")
Me.Repaint
End Sub



Private Sub Image1_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)

End Sub
Private Sub UserForm_Activate()
   With Me.Image1
        .Top = (Me.InsideHeight - Me.Image1.Height) / 2
        .Left = (Me.InsideWidth - Me.Image1.Width) / 2
    End With
End Sub
Private Sub UserForm_Initialize()

 'With Me.Image1
   '     .Top = (Me.InsideHeight - Me.Image1.Height) / 2
   '     .Left = (Me.InsideWidth - Me.Image1.Width) / 2
    'End With
'''''''''POUR RENDRE "IMAGE1"? INVISIBLE''''''''''
Image1.Visible = False
''''''''''''''''''''''''''''''''''''''''''''''''''
Dim fichier
fichier = Dir(ThisWorkbook.Path & "\Documents\Photos botanique\" & "\*.jpg")
While fichier <> ""
  If fichier <> "inexistante.jpg" Then ComboBox1.AddItem Left(fichier, Len(fichier) - 4)
  fichier = Dir
Wend
fichier = Dir(ThisWorkbook.Path & "\Documents\Présentations\" & "\*.ppsm")
While fichier <> ""
  If fichier <> "inexistante.jpg" Then ComboBox1.AddItem Left(fichier, Len(fichier) - 4)
  fichier = Dir
Wend
End Sub
Private Sub Image5_Click()
  Unload Me
Unload Me
End Sub

Voilà ce que j'ai fait

 

[Dranreb]

Bonjour.
Remarque: si Image1 a sa propriété Autosize à true il faut le refaire après changement de sa Picture.