oxydedefer
XLDnaute Nouveau
Bonjour à tous , Voilà j'essaye de fair une frame transparente , pour ce faire j'ai suivi cette exemple : Les meilleurs sources pour Excel - Club d'entraide des dveloppeurs francophones
Donc je retape le même code mais chez moi sa fonctionne pas :s Pouvez-vous expliqué pas à pas la démarche.Malheureusement je ne peux mettre mon fichier sur le site car il dois rester secret mais voici mon code de la userform sur cela :
merci pour vos réponses
Donc je retape le même code mais chez moi sa fonctionne pas :s Pouvez-vous expliqué pas à pas la démarche.Malheureusement je ne peux mettre mon fichier sur le site car il dois rester secret mais voici mon code de la userform sur cela :
Code:
Private Sub UserForm_Initialize()
'Transparence '
'frame_transparent Frame1, Me, Image1
frame_transparent Frame2, Me, Image2
End Sub
Sub frame_transparent(cadre As Frame, f, imaj As Image)
cadre.BorderStyle = 0
' cadre.ZOrder 'peut être supprimé si inconnu sous VBA
cadre.BackColor = f.BackColor
' imaj.ZOrder 1 'peut être supprimé si inconnu sous VBA
imaj.Picture = f.Picture
imaj.Move -cadre.Left, -cadre.Top, f.Picture.Width, f.Picture.Height
End Sub