cs_evicta
Messages postés5Date d'inscriptionmardi 1 février 2005StatutMembreDernière intervention 8 octobre 2008
-
8 oct. 2008 à 17:05
cs_evicta
Messages postés5Date d'inscriptionmardi 1 février 2005StatutMembreDernière intervention 8 octobre 2008
-
8 oct. 2008 à 18:03
Dans une feuille excel je voudrais mettre une image comme dans le code ci-joint.
Mais en plus il me faut la mettre en arriere plan.
Que me faut t' il ajouter à ce code ?
Merci.
Private Sub CommandButton1_Click()
Dim image As String
image = Application.GetOpenFilename("Image de la pièce, *.*")
If image <> "Faux" Then
Shapes.AddPicture image, True, True, 125, 125, 375, 290
bigfish_le vrai
Messages postés1835Date d'inscriptionvendredi 13 mai 2005StatutMembreDernière intervention20 novembre 201315 8 oct. 2008 à 17:29
oupss !
en faite c'est possible :
Private Sub CommandButton2_Click()
Dim image As String
image = Application.GetOpenFilename("Image de la pièce, *.*")
If image <> "Faux" Then
'Shapes.AddPicture image, True, True, 125, 125, 375, 290
ActiveSheet.SetBackgroundPicture Filename:=image
End If
End Sub