Code VBA bordure d'image dans un userForm

Staple1600

XLDnaute Barbatruc

• 6 Août 2018

• #2

Bonsoir le fil, le forum

@A2H [Bienvenue sur le forum]

A2H à dit:

Bonjour
C'est très urgent (question de temps)

Cliquez pour agrandir...

Absolument pas pour nous 😀

(voir la charte du forum)

 

Dernière édition: 6 Août 2018

Vote positif 0 Vote négatif

A

A2H

Guest

• 6 Août 2018

• #3

Private Sub Image2_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

'Me.Image2.BorderColor = RGB(256, 0, 0)
With Image2
.BorderStyle = 1
.BorderColor = RGB(256, 0, 0)
End With
End Sub

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Août 2018

• #4

Bonjour A2H, JM, le forum,

Chez moi la propriété BorderColor d'une image ne fonctionne pas correctement.

De toute façon une bordure d'image est trop fine.

Dans le fichier joint chaque image est placée dans un Frame qui se colore.

Et j'utilise un module de classe, voyez les codes dans Classe1 et Module1.

A+

 

Pièces jointes

• Bordures images(1).xlsm

  36.1 KB · Affichages: 42

Vote positif 0 Vote négatif

A

A2H

Guest

• 8 Août 2018

• #5

Merci beaucoup pour vos collaboration
Le problème est réglé comme suit:
With Image2
.BorderStyle = fmBorderStyleSingle
.BorderColor = RGB(256, 0, 0)
.BackColor = 46
End With

 

Vote positif 0 Vote négatif

A

A2H

Guest

• 8 Août 2018

• #6

Pour compléter mon travail je veux un code VBA qui me permet de glisser un "Label"
ce type de code (Me.Label2.Top = 94) le fait déplacer non glisser on le maintenir avec le pointeur de la souris
Merci d'avance pour l'aide

 

Vote positif 0 Vote négatif