Excel 2007 - Effacer images
Résolu
Anna
-
Bidouilleu_R Messages postés 1181 Date d'inscription Statut Membre Dernière intervention -
Bidouilleu_R Messages postés 1181 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Après mainte essais je fais appel à vous car je ne trouve pas la solution a mon problème (je ne connais certainement pas assez VBA!)
Voici une partie de mon code (la suite fait la meme chose pour le reste des feuilles du classeur) qui me permet d'insérer une image dans chacune de mes feuilles automatiquement. Il fonctionne très bien.
Cependant, j'aimerais faire un bouton pour, si besoin, effacer toutes les images insérées avec le code ci dessus.
Je ne sais pas comment faire. (Je crois qu'il faut déclarer les variables en public? enfin je sais pas j'ai tout essayé mais peut être mal !)
Une idée?
Anna
Sub Signatureelectronique()
Application.ScreenUpdating = False
Dim monimage As Picture
Dim nf As String
Dim retour As Integer
repertoire = ThisWorkbook.Path & "\"
nom = Sheets("individual_review").Range("B15")
If Sheets("individual_review").Range("B15") = blank Then MsgBox ("Please fill in your name in B15")
If Sheets("individual_review").Range("B15") = blank Then Exit Sub
retour = MsgBox("Do you want to automatically sign all sheets?", vbYesNo + vbExclamation + vbDefaultButton2, "Electronic signature")
If retour = vbNo Then Exit Sub
If retour = vbYes Then
End If
Sheets("ANEA").Select
Set monimage = ActiveSheet.Pictures.Insert(repertoire & nom & ".jpg")
With monimage
.Top = Sheets("ANEA").Range("B21").Top
.Left = Sheets("ANEA").Range("B21").Left
End With
Après mainte essais je fais appel à vous car je ne trouve pas la solution a mon problème (je ne connais certainement pas assez VBA!)
Voici une partie de mon code (la suite fait la meme chose pour le reste des feuilles du classeur) qui me permet d'insérer une image dans chacune de mes feuilles automatiquement. Il fonctionne très bien.
Cependant, j'aimerais faire un bouton pour, si besoin, effacer toutes les images insérées avec le code ci dessus.
Je ne sais pas comment faire. (Je crois qu'il faut déclarer les variables en public? enfin je sais pas j'ai tout essayé mais peut être mal !)
Une idée?
Anna
Sub Signatureelectronique()
Application.ScreenUpdating = False
Dim monimage As Picture
Dim nf As String
Dim retour As Integer
repertoire = ThisWorkbook.Path & "\"
nom = Sheets("individual_review").Range("B15")
If Sheets("individual_review").Range("B15") = blank Then MsgBox ("Please fill in your name in B15")
If Sheets("individual_review").Range("B15") = blank Then Exit Sub
retour = MsgBox("Do you want to automatically sign all sheets?", vbYesNo + vbExclamation + vbDefaultButton2, "Electronic signature")
If retour = vbNo Then Exit Sub
If retour = vbYes Then
End If
Sheets("ANEA").Select
Set monimage = ActiveSheet.Pictures.Insert(repertoire & nom & ".jpg")
With monimage
.Top = Sheets("ANEA").Range("B21").Top
.Left = Sheets("ANEA").Range("B21").Left
End With
A voir également:
- Excel 2007 - Effacer images
- Save as pdf office 2007 - Télécharger - Bureautique
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
6 réponses
bonjour,
la réponse est sur ce lien!
http://www.commentcamarche.net/forum/affich 2364423 excel vba suppression images shapes
A+
la réponse est sur ce lien!
http://www.commentcamarche.net/forum/affich 2364423 excel vba suppression images shapes
A+
Merci Bidouilleur,
j'avais déjà parcouru ce thread. Effectivement cela se rapproche bcp de mon souci et je peux m'en inspirer mais:
Si j'exécute ce code, il va supprimer également mes deux boutons de commandes placé en première feuille non puisque ce sont des shapes?
Anna
j'avais déjà parcouru ce thread. Effectivement cela se rapproche bcp de mon souci et je peux m'en inspirer mais:
Si j'exécute ce code, il va supprimer également mes deux boutons de commandes placé en première feuille non puisque ce sont des shapes?
Anna
J'ai utilisé ce code ci dessous qui fonctionne très bien. Mais comment faire pour supprimer les shapes sur les autres feuilles? ou carrément sur tout le workbook?
Anna
Sub SuppiSign()
Dim img As Object
For Each img In Sheets("ANEA").Shapes
img.Delete
Next
ENDSUB
Anna
Sub SuppiSign()
Dim img As Object
For Each img In Sheets("ANEA").Shapes
img.Delete
Next
ENDSUB
Essaye comme ça!
si tes boutons sont nommés Bouton 1 à ... n
en plaçant un espion sur img.name
tu verras apparaître le nom de l'objet.
et tu pourras aussi ajouter d'autres conditions si nécessaires
Sub SuppiSign()
Dim img As Object
For Each img In Sheets("Feuil1").Shapes
If Left(img.Name, 6) <> "Button" Then
img.Delete
End If
Next
End Sub
si tes boutons sont nommés Bouton 1 à ... n
en plaçant un espion sur img.name
tu verras apparaître le nom de l'objet.
et tu pourras aussi ajouter d'autres conditions si nécessaires
Sub SuppiSign()
Dim img As Object
For Each img In Sheets("Feuil1").Shapes
If Left(img.Name, 6) <> "Button" Then
img.Delete
End If
Next
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question