Comment avez-vous « dégrouper » une image dans PowerPoint en utilisant VBA

Question

J'ai un fichier PowerPoint avec une diapositive avec une image (fichier WMF / emp) en elle et je veux « dégrouper » les éléments d'image dans l'aide VBA.

Je dois demander PowerPoint deux fois de le faire - mais il le fait.

Peut-il être fait en utilisant VBA? et si oui, comment?

Answer 1

Il est assez simple - du fichier d'aide:

  

Cet exemple dissocie tout Groupés   formes et désassemble toutes les photos   ou des objets OLE sur myDocument.

Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
    s.Ungroup
Next

Vous devrez peut-être faire quelques vérifications d'erreur si elle ne peut pas être dissociées, comme un JPG, et une vérification de type (à savoir If s.Type = msoPicture...)

Answer 2

Pas une réponse directe à la question, mais ...

La meilleure façon de comprendre comment automatiser les applications de bureau avec VBA est enregistrement une macro et puis regardez le code qui se crachez .