Discussion :

[amnorian]

Bonjour,

je fais suite à cette belle discussion

http://www.developpez.net/forums/d18...nsparente-vba/

qui donne un exemple pour rendre un frame transparent

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub UserForm_Initialize()
  Frame_Transparent Frame1, Me, Image1
End Sub
 
Private Sub Frame_Transparent(cadre As Frame, f As UserForm, 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

sur l'exemple ca marche.
Sur le mien il bloque à l'image image1 oui excel m'indique "type d'argument Byref incompatible".
Je suppose que c'est le nom Image1 qui ne convient pas, mais je ne sais pas comment déterminer le nom de l'image que j'ai inséré.

Une ame charitable pour me renseigner ?

[joe.levrai]

Bonjour,

passe ton argument en Val comme ça

Code :

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

Private Sub Frame_Transparent(cadre As Frame, f As UserForm, ByVal imaj As Image)

et regarde si le comportement de ta procédure reste conforme

[amnorian]

merci pour la réponse, je viens de tenter, ca me crée un erreur d'execution 424 objet requis

[joe.levrai]

Ah j'avais lu trop vite

c'est quoi Image1, tu l'as instanciée quand ?
Etant un objet, on est d'accord qu'elle a été instanciée avec "Set" ?


et bien sûr, il est d'usage de spécifier la ligne qui plante

[amnorian]

Je ne l'ai pas instancié car dans le code d'origine (le lien) elle n'est pas instanciée.
Il ne m'est pas informé de la ligne qui plante malheureusement, mais si je retire la ligne ou est contenu l'image cela fonctionne

Code :

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

1
2
3
Private Sub UserForm_Initialize()
  Frame_Transparent Frame1, Me, Image1
End Sub

je me doute que je rate quelquechose principalement à ce niveau

imaj.Picture = f.Picture

car je ne sais pas ce qu'est image et si il y a une référence que j'ai peut être oublié de cocher.

[joe.levrai]

On a un peu de travail si je veux réussir mon objectif : te faire comprendre ce qui se passe

Un peu short pour le moment, j'espère ce soir (mais pas sûr) si personne n'est intervenu d'ici là