Macro supprimer coeur Fermé

Question

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

Configuration: Windows XP / Chrome 35.0.1916.153

m@rina · Answer

Bonjour

Ce n'est pas Type mais AutoShapeType

Essaie plutôt ceci :

Sub supprime_coeur()Dim x As IntegerDim diapo As SlideFor Each diapo In ActivePresentation.Slides    For x = diapo.Shapes.Count To 1 Step -1    If diapo.Shapes(x).AutoShapeType = msoShapeHeart Then    diapo.Shapes(x).DeleteEnd IfNext xNext diapoEnd 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.

Macro supprimer coeur

1 réponse

Discussions similaires

Newsletters