Rendre une frame transparente
Bonjour je recherche comment rendre une frame transparente pour faire apparaitre l'image de fond du userform.
j'ai trouvé le code suivant sur internet mais lorsque je l'insére dans ma page cela ne fonctionne pas :(
Code:
1 2 3 4 5 6 7 8 9 10 11 12
|
Private Sub UserForm_Activate()
Frame_Transparent Frame1, Me, Image1
end sub
Private Sub Frame_Transparent(cadre As Frame, f As Hydraulique, imaj As Image)
cadre.BorderStyle = 0
cadre.BackColor = f.BackColor
imaj.Picture = f.Picture
imaj.Move -cadre.Left, -cadre.Top, f.Picture.Width, f.Picture.Height
End Sub |