[VBA-E] deplacer une image dans un label ou zone image ?

**zouille** · 14/04/2006, 16h49

salut a tous
voila , j'ai besoin de metre dans un userform , une image de resolution : 2400*500, j'ai essayer mais ca ne correspond pas a ce que j'aimerais.
(essai dans zone image et label mais echec)

j'aimerais avoir l'image dans une zone image ou label ( de 600*500) et pouvoir faire defile l'image grace a des barre de defilement ou toupie mais je n'y arrive pas.

de plus est il possible de mettre des boutons sur cette image, qui bougeraient en meme temps que l'image se deplace et donc disparaissent qd ils sortent du label ou zone image

grand merci a vous

**ouskel'n'or** · 14/04/2006, 18h30

Déjà, pour que tes boutons se déplacent avec ton image, tu dois créer un goupe.
Ensuite, pour déplacer ton image, tu peux mettre un scrollbar dans ta form, dont tu lies les déplacements à ceux de ton image.

Essaie déjà de faire ça...

A+

**jmfmarques** · 14/04/2006, 18h31

tu ne peux faire celà avec un label (je vois mal comment y insérer une image) !
Tu ne ne peux non plus le faire avec un contrôle image (je vois mal comment tu pourrais y insérer d'autres contrôles)
Il ne te reste plus, si VBA ( j'attends les pros de VBA ) gère ce contrôle, qu'une picturebox (et là c'est parfaitement réalisable : image, autres contrôle, et le tout pouvant être déroulé).
Qu'on veuille donc bien me renseigner sur le fait que VBA a ou non des PictureBoxessss (avé l'assent marseillais !). Je n'ai pas VBA "à la mode du jour"

**SilkyRoad** · 14/04/2006, 18h38

bonsoir à tous

tu pourrais essayer d'ultiliser un WebBrowser pour visualiser l'image et y a jouter des boutons

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
16
17
18
19
20
21
22
23
Private Sub UserForm_Initialize()
Dim Fichier As String
Dim maPageHtml As Object
 
Fichier = "C:\Documents and Settings\michel\dossier\monImage.JPG"
 
UserForm1.WebBrowser1.Navigate _
"about:<HTML>" & _
"<BR><BR><BR>" & _
"<BODY background='" & Fichier & "'>" & _
"<FORM>" & _
"<INPUT type=button value='le bouton' onClick=(alert('Bonjour!'))>" & _
"</FORM>" & _
"</BODY></HTML>"
 
DoEvents
 
Set maPageHtml = WebBrowser1.Document
With maPageHtml.body.Style
.MarginRight = 2450
.MarginBottom = 500
End With
End Sub

pour déplacer les boutons dans le WebBrowser , c'est peut etre possible mais en creant une usine à gaz
pourquoi ne pas placer des boutons directement sur le UserForm ?

bon week end
michel

**jmfmarques** · 14/04/2006, 18h41

Ben... si VBA gère les PictureBoxes (Ousk ? Bbil? Mega ?), ça va être vite fait et simplement fait, avec une scrollbar !

EDIT Hé ! On me fait savoir ?

**zouille** · 14/04/2006, 18h59

merci a tous

donc voila , j'ai essayer de mettre une image dans le userform , mais comment lier le deplacement de la barre verticale a mon image

* pour le label , je voulais dire frame ( oups) , en fait j'ai mis un frame pour limiter l'ocupation de l'image dans le userform

*sinon , ca serait peut etre plus simple si je couper mon image en 3 et qu'avec 2 bouton droite gauche , j'affiche ou efface une des 3 et donc plus simple pour le probleme des boutons !!!

j'aimerais tout de meme reussir avec le defilement de l'image

merci bien a vous

**jmfmarques** · 14/04/2006, 19h03

Et la réponse à ma question (peut-être salavatrice) ?

**jmfmarques** · 14/04/2006, 19h17

de plus est il possible de mettre des boutons sur cette image, qui bougeraient en meme temps que l'image

Il veut çà aussi et, tant qu'à faire, je préfère faire d'une pierre 2 coups plutôt qu'une usine !

**zouille** · 14/04/2006, 19h20

bon ,
il y a qq chose que je ne comprend pas , ou vois tu top min et top max , je ne suis pas un pro de VBA mais la je vois pas.

sinon , si on arrive a faire defilé l'image dans le fram , y a t il possibilite de faire suivre les boutons ou non ? sinon , on fait au plus simple : image coupé en 3 avec 1 bouton pour afficher tel ou tel image.

merci

**SilkyRoad** · 14/04/2006, 19h23

rebonsoir

cela ne resoud pas ton probleme de bouton mais effectivement si tu inseres un objet image dans un frame , tu peux tester

Code :

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

1
2
3
4
5
6
7
8
Image1.AutoSize = True
Image1.Picture = LoadPicture("C:\Documents and Settings\michel\dossier\monImage.JPG")
 
With Me.Frame1
.ScrollBars = fmScrollBarsBoth
.ScrollHeight = Image1.Height
.ScrollWidth = Image1.Width
End With

bonne soiree
michel

**zouille** · 14/04/2006, 19h41

ok merci , je tente et vous tiens au courant ds le week end

**zouille** · 15/04/2006, 08h31

Envoyé par SilkyRoad

rebonsoir

cela ne resoud pas ton probleme de bouton mais effectivement si tu inseres un objet image dans un frame , tu peux tester

Code :

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

1
2
3
4
5
6
7
8
Image1.AutoSize = True
Image1.Picture = LoadPicture("C:\Documents and Settings\michel\dossier\monImage.JPG")
 
With Me.Frame1
.ScrollBars = fmScrollBarsBoth
.ScrollHeight = Image1.Height
.ScrollWidth = Image1.Width
End With

bonne soiree
michel

salut et merci ,
ca marche bien ,les boutons se deplacent nickel : j'ai mis ton code en : Private Sub UserForm_Initialize (c'est bien ou non?)

Par contre il y a un petit probleme , l'image n'est pas presente dans la zone de image qd je travail sur le projet , donc c'est pas evident de posé les boutons sans l'image en dessous , comment puis je faire ?

j'ai essayer en mettant directement l'image dans les option de la zone mais idem

merci a toi

**zouille** · 15/04/2006, 14h15

ok ca marche

Par contre est il possible que qd je clique sur un des boutons present sur le plan , ca m'ouvre un 2eme userform avec des donné propres au local ou il y a le bouton
( mon userform est fait , il renseigne sur les machine tournante ds le local + les travaux a effectuer + les travaux effectué : tout cela present dans la feuil2)

par exemple :
Quand je clique sur le bouton ( dont le nom est : E220) , le 2eme userform m'affiche les infos des contenue dans la ou les lignes dont la colonne A contient E220.

et de meme pour les autre bouton , donc recherche du nom du bouton dans la colonne A pour affichage des info des colonne B C D

voila et merci

voici le code fonctionnant pour un bouton :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub UserForm_Initialize()
inicombobox1
End Sub
 
Public Sub inicombobox1()
Dim c As Range
 
ComboBox1.Clear
ComboBox1.ColumnCount = 2
ComboBox1.ColumnWidths = "90;0"
 
With Sheets("2eme faux-pont")
    For Each b In .Range("B2:b" & .Range("b65536").End(xlUp).Row)
        ComboBox1.AddItem b
        ComboBox1.List(ComboBox1.ListCount - 1, 1) = b.Row
 
    Next b
End With
End Sub
Private Sub ComboBox1_Click()
Dim ligne As Integer
 
ligne = ComboBox1.List(ComboBox1.ListIndex, 1)
 
With Sheets("2eme faux-pont")
    TextBox1 = .Cells(ligne, 3)
    TextBox2 = .Cells(ligne, 4)
    TextBox3 = .Cells(ligne, 5)
   End With
End Sub
Private Sub quitter_Click()
info.Hide
End Sub

j'avais un code avec un modul de classe , mais n'arrive pas a l'adapter car pas de connaissance)

[VBA-E] deplacer une image dans un label ou zone image ?

Macros et VBA Excel

Discussions similaires

Partager

Partager