Bonjour, je réaliser un fichier qui me doit me permettre d'importer un fichier .emf, et ensuite de le dégrouper. J'ai donc réaliser ce bout de code :
Sub insere_image()
Dim ficimg As Variant
ficimg = Application.GetOpenFilename(".emf,*.emf", , "Choisissez l'image") ' choix nom du fichier
ActiveSheet.Pictures.Insert(ficimg).Select ' insertion With Selection.ShapeRange .LockAspectRatio = False
Set myDocument = Worksheets(1)
For Each S In myDocument.Shapes
S.Ungroup
Next
End Sub
Le premier problème que je rencontre est que le fichier l'image ne ce décompose pas à 100% d'autant que mes fichiers seront variables et donc le nombre de décompositions à réaliser sera différent. Comment faire une boucle pour que mon code se répète le nombre fois nécessaire sans avoir d'erreur sur la macro ?
Je voudrais ensuite réaliser 3 opérations de plus :
1. Supprimer toutes les formes qui ne sont pas définit comme des Freeform dans excel
2. Appliquer une mise en forme remplissage uni individuellement pour chaque Freefrom
3. Réattribuer les couleurs en fonction de leur couleur d'origine par des couleurs que je choisis