image et userform

image et userform - VB/VBA/VBS - Programmation

Marsh Posté le 26-10-2005 à 17:48:08    

salut à tous,
 
j'ai un petit userform avec une case image, je voulais savoir comment faire pour que une fois que l'on clik sur la case image ça ouvre explorateur pour choisir l'image a inserer, et la mettre dans la case du userform.
 
Ensuite, je voudrais que lorsque l'on clik sur un bouton de ce userform, l'image soit envoié dans une cellule defini ?
 
Merci
@+

Message cité 1 fois
Reply

Marsh Posté le 26-10-2005 à 17:48:08   

Reply

Marsh Posté le 03-11-2005 à 14:30:00    

Mc canard a écrit :

salut à tous,
 
j'ai un petit userform avec une case image, je voulais savoir comment faire pour que une fois que l'on clik sur la case image ça ouvre explorateur pour choisir l'image a inserer, et la mettre dans la case du userform.
 
Ensuite, je voudrais que lorsque l'on clik sur un bouton de ce userform, l'image soit envoié dans une cellule defini ?
 
Merci
@+


 
 
bon après pas mal de soucis, je te propose ceci:
 
tu crées un userform (userform1) avec un bouton et un control image
 
dans le code de userform1 tu mets ceci:
 

Code :
  1. Option Explicit
  3. Public gavImage As Variant
  4. Public o As Variant
  6. Private Sub CommandButton1_Click()
  7.     Set o = ActiveSheet.Pictures.Insert(gavImage)
  8.     o.Left = ActiveCell.Left
  9.     o.Top = ActiveCell.Top
  10.     o.Height = ActiveCell.Height
  11.     o.Width = ActiveCell.Width
  12. End Sub
  14. Private Sub Image1_Click()
  16. gavImage = Application.GetOpenFilename("Image Files (*.gif; *.jpg; *.bmp), *.gif; *.jpg; *.bmp", , "Selectionner une image", False)
  17. If gavImage = False Then Exit Sub
  18. UserForm1.Image1.Picture = LoadPicture(gavImage)
  19. UserForm1.repaint
  20. End Sub


 
Dans thisworkbook, tu mets ceci:

Code :
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2. o.Top = Target.Top
  3. End Sub


 
dans un module de ton choix, tu mets ceci:
 

Code :
  1. Sub Showform()
  2. UserForm1.Show
  3. End Sub
  5. Sub Hideform()
  6. UserForm1.Hide
  7. End Sub


 
En appelant showform, tu peux cliquer sur l'emplacement image et charger une image. Si tu clique sur le bouton, elle sera chargée dans la cellule.
 


---------------
Ce qui est affirmé sans preuve peut être nié sans preuve.
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed