suppression de l'image de fond d'un userform

Bonjour à tous,

J'ai installé sur un userform (UserFormEC) une image de fond afin d'agrémenter le "plan de travail".

Cependant, quand le "travail" est définitivement validé, je ne souhaite pas conserver cette image qui, somme toute, n'a plus aucune utilité mais qui tient beaucoup de place : avec image, le fichier excel pèse 1,6 mégaoctets et sans 80 ko. Ça vaut donc le coup de ...

Le code est appelé par un commandbutton implanté sur cet userform.

J'ai beau essayé diverses commande commençant par UserFormEC.Picture = (quelque chose), que ce soit dans le code du commandbutton ou bien par appel d'une macro écrite dans un module, je n'arrive pas à trouver la bonne écriture. J'ai essayé "none", "aucun", "Nothing", "delete".... je suis toujours en erreur.

Si l'opération est vraiment possible, pourriez-vous m'aider ?

Merci d'avance,
Maurice GUILLIER

Bonjour,

Pour retirer l'image de fond

Code:

---

Me.Picture = LoadPicture("")

---

Bonjour,

Fouillant l'aide VBA sur excel, je venais tout juste de trouver : Object.Picture = LoadPicture("") quand ta réponse est arrivée.

Tout concorde donc !;)

Merci pour ce coup de main car, au départ, je n'arrivais même pas a bien formulé ma question dans l'aide.

Bonne journée... sous la neige !
Maurice

Bonjour,

Ça marche mais...

En effet, avec le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub CommandButton10_Click() avertissement = MsgBox("ATTENTION !" & Chr(10) & "Si vous appuyez sur 'OK', vous ne pourrez plus modifier ce bon !" & Chr(10) & Chr(10) & "Voulez-vous vraiment le valider définitivement ?", vbCritical + vbYesNo, "Validation pour facturation") If avertissement = vbYes Then Sheets("Commande").Activate Range("C3:AP32").Select ActiveSheet.Unprotect Selection.Locked = True Selection.FormulaHidden = False Range("C3").Select ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True UserFormEC.Picture = LoadPicture("") End If End Sub

---

L'image est bien effacée mais seulement pour la session en cours. Après enregistrement du fichier et réouverture, l'image est toujours présente sur le userform.

En fait, je souhaite supprimer définitivement l'image lorsque "CommandButton10_Click()" s'est exécuté.

J'espère que c'est possible et j'attends patiemment vos conseils.

Cordialement,
Maurice

Une solution consisterait de tester une cellule a l'ouverture du fichier.
Si celle ci contient 1une certaine valeur (par exemple 1), tu charges l'image sinon tu ne charges pas l'image.
cela permettra d'avoir toujours un fichier light. Par contre il faudra distribuer l'image avec le fichier