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

Version imprimable

14/04/2006, 16h49
zouille

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

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
14/04/2006, 18h30
ouskel'n'or

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... :wink:

A+
14/04/2006, 18h31
jmfmarques

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" :lol:

bonsoir à tous

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

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

14/04/2006, 18h41
jmfmarques

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

EDIT Hé ! On me fait savoir ?
14/04/2006, 18h59
zouille

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 !!! :wink:

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

merci bien a vous
14/04/2006, 19h03
jmfmarques

Et la réponse à ma question (peut-être salavatrice) ?
14/04/2006, 19h17
jmfmarques

Citation:

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 ! :wink:
14/04/2006, 19h20
zouille

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

rebonsoir

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

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

14/04/2006, 19h41
zouille

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

Citation:
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:

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

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:

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)