Supprimer une image dans excel 2003 via macro

Fermé
halfernet Messages postés 284 Date d'inscription jeudi 10 mai 2007 Statut Membre Dernière intervention 3 avril 2020 - 27 janv. 2011 à 18:48
halfernet Messages postés 284 Date d'inscription jeudi 10 mai 2007 Statut Membre Dernière intervention 3 avril 2020 - 28 janv. 2011 à 13:48
Bonjour,

je suis en train de créer une affiche via excel et un formulaire

la page 1 sert de formulaire et la page 2 a l'affichage et l'impression du formulaire

Je souhaiterais savoir comment faire dans excel pour effacer une image via une macro et un bouton.

en gros j'ai créé un bouton qui permet d'insérer une image dans la page 1 et 2

(via l'enregistrement automatique de macro) ce qui n'est pas bien je l'avoue !

Range("AQ6:AZ12").Select
maphoto1 = Application.GetOpenFilename
ActiveSheet.Pictures.Insert(maphoto1).Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 102#
Selection.ShapeRange.Width = 135.75
Selection.ShapeRange.Rotation = 0#
Selection.Copy
Sheets("Feuil2").Select
Range("Z25:BB41").Select
ActiveSheet.Paste
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 212.25
Selection.ShapeRange.Width = 282.75
Selection.ShapeRange.Rotation = 0#
Sheets("Feuil1").Select
Range("O14:X14").Select


Il me faut maintenant un autre bouton pour les effacer

(via l'enregistrement automatique de macro sa ne fonctionne pas !)

Et une petite question subsidiaire :

je souhaiterais cliquer sur un bouton pour enregistrer mon formulaire, qu'il y ai juste une boite de dialogue qui apparaisse et qui me donne le choix de l'enregistrer ou je veux.
(avec, et là ce serait génial, que le nom du fichier qui est contenu dans une cellule soit préinscrit dans la boite de dialogue)

Par avance, merci


A voir également:

1 réponse

halfernet Messages postés 284 Date d'inscription jeudi 10 mai 2007 Statut Membre Dernière intervention 3 avril 2020 27
28 janv. 2011 à 13:48
Pour l'effacement j'ai réussi

ActiveSheet.Shapes("image1").Select
Selection.Delete
Sheets("Feuil2").Select
ActiveSheet.Shapes("image1").Select
Selection.Delete
Sheets("Feuil1").Select


mais toujours pas pour l'enregistrement
0