néné06
XLDnaute Accro
Bonsoir le Forum,
J'ai besoin de votre aide afin de placer dans une image situé dans un Label d'un USF, une autre image.
Je ne sais pas si cela est possible ?
Pour mieux comprendre, regardez la PJ en "Feuil1" en bas à droite.
Je souhaite insérer l'image ronde du bateau dans le bouton que j'ai crée et que cette image s'affiche d'un USF lors du
lancement du fichier.
Je vous informe que ce fichier demande environ 20 secondes avant de s'ouvrir.
Quelqu'un aurait il une solution ?
D'avance Merci!!!!
René
Edit: le code est faux dans cette partie !!
'**********************************************
'* CALIBRAGE DES CONTROLS DU MENU DE DEPART *
'**********************************************
Public Sub Depart_calibre()
BTNQUIT.Font.Size = Int(Me.Height / 25)
BTNQUIT.Top = Me.Height - 5 - BTNQUIT.Height
BTNQUIT.Left = Int((Me.Width - BTNQUIT.Width) / 2)
'*Depart_calibre_BTNADMIN
Set Label8.Picture = PastePicture(xlPicture)
Feuil3.Shapes("Rectangle à coins arrondis 23").CopyPicture xlScreen, xlPicture
'***************************** ICI ****************************
Set Label9.Picture = PastePicture(xlPicture)
Feuil3.Shapes("Image 3").CopyPicture xlScreen, xlPicture
Set Label9.Picture = PastePicture(xlPicture)
'**************************************************************
nom_image = "logo"
On Error GoTo aa:
Image3.Picture = LoadPicture(ActiveWorkbook.Path & "\Image ports" & "\" & nom_image & ".JPG")
Exit Sub
aa:
Image3.Picture = LoadPicture()
End Sub
J'ai besoin de votre aide afin de placer dans une image situé dans un Label d'un USF, une autre image.
Je ne sais pas si cela est possible ?
Pour mieux comprendre, regardez la PJ en "Feuil1" en bas à droite.
Je souhaite insérer l'image ronde du bateau dans le bouton que j'ai crée et que cette image s'affiche d'un USF lors du
lancement du fichier.
Je vous informe que ce fichier demande environ 20 secondes avant de s'ouvrir.
Quelqu'un aurait il une solution ?
D'avance Merci!!!!
René
Edit: le code est faux dans cette partie !!
'**********************************************
'* CALIBRAGE DES CONTROLS DU MENU DE DEPART *
'**********************************************
Public Sub Depart_calibre()
BTNQUIT.Font.Size = Int(Me.Height / 25)
BTNQUIT.Top = Me.Height - 5 - BTNQUIT.Height
BTNQUIT.Left = Int((Me.Width - BTNQUIT.Width) / 2)
'*Depart_calibre_BTNADMIN
Set Label8.Picture = PastePicture(xlPicture)
Feuil3.Shapes("Rectangle à coins arrondis 23").CopyPicture xlScreen, xlPicture
'***************************** ICI ****************************
Set Label9.Picture = PastePicture(xlPicture)
Feuil3.Shapes("Image 3").CopyPicture xlScreen, xlPicture
Set Label9.Picture = PastePicture(xlPicture)
'**************************************************************
nom_image = "logo"
On Error GoTo aa:
Image3.Picture = LoadPicture(ActiveWorkbook.Path & "\Image ports" & "\" & nom_image & ".JPG")
Exit Sub
aa:
Image3.Picture = LoadPicture()
End Sub
Pièces jointes
Dernière édition: