Macro supprimer coeur
gobman
-
m@rina Messages postés 23923 Date d'inscription Statut Contributeur Dernière intervention -
m@rina Messages postés 23923 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
J'i une présentation avec beaucoup de dessin en forme de coeur.
Je souhaite faire une macro pour tous les supprimer.
J'ai essayer la macro ci-dessou, mais rien ne se passe :
Sub supprime_coeur()
Dim diapo As Slide
Dim forme As Shape
For Each diapo In ActivePresentation.Slides
For Each forme In diapo.Shapes
If forme.Type = msoShapeHeart Then
forme.Delete
End If
Next forme
Next diapo
End Sub
Une idée ?
Merci d'avance
J'i une présentation avec beaucoup de dessin en forme de coeur.
Je souhaite faire une macro pour tous les supprimer.
J'ai essayer la macro ci-dessou, mais rien ne se passe :
Sub supprime_coeur()
Dim diapo As Slide
Dim forme As Shape
For Each diapo In ActivePresentation.Slides
For Each forme In diapo.Shapes
If forme.Type = msoShapeHeart Then
forme.Delete
End If
Next forme
Next diapo
End Sub
Une idée ?
Merci d'avance
A voir également:
- Macro supprimer coeur
- Supprimer rond bleu whatsapp - Guide
- Supprimer page word - Guide
- Supprimer pub youtube - Accueil - Streaming
- Fichier impossible à supprimer - Guide
- Supprimer compte instagram - Guide
1 réponse
Bonjour
Ce n'est pas Type mais
Essaie plutôt ceci :
Ta macro devrait fonctionner avec
m@rina
Comment ça marche est un forum public. Je ne réponds pas aux questions posées en MP.
Ce n'est pas Type mais
AutoShapeType
Essaie plutôt ceci :
Sub supprime_coeur()
Dim x As Integer
Dim diapo As Slide
For Each diapo In ActivePresentation.Slides
For x = diapo.Shapes.Count To 1 Step -1
If diapo.Shapes(x).AutoShapeType = msoShapeHeart Then
diapo.Shapes(x).Delete
End If
Next x
Next diapo
End Sub
Ta macro devrait fonctionner avec
AutoShapeType, mais... pas forcément avec tous les coeurs ! Un petit bug PowerPoint qui oblige souvent à repasser plusieurs fois la macro.
m@rina
Comment ça marche est un forum public. Je ne réponds pas aux questions posées en MP.