Macro supprimer coeur
gobman
-
m@rina Messages postés 27551 Date d'inscription Statut Modérateur Dernière intervention -
m@rina Messages postés 27551 Date d'inscription Statut Modérateur 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
1 réponse
-
Bonjour
Ce n'est pas Type maisAutoShapeType
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 avecAutoShapeType
, 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.
