EXCEL 2007 - Recolorier image par macro

Anonyme
2012-05-27T14:07:10+00:00

Bonjour,

Je voudrais, à l'aide d'une macro, pouvoir recolorier une image avec une couleur de mon choix tel que l'on peut le faire en passant par le menu Format -> Recolorier -> Autres Variations.

L'enregistreur de macro ne fonctionnant pas pour les Shapes avec Excel 2007, je désirerai connaitre le code permettant de le faire.

Pour passer en ton de gris j'utilise actuellement : PictureFormat.ColorType = msoPictureGrayscale. Mais ColorType n'offre que peu de possibilités et je souhaite pouvoir utiliser n'importe quelle couleur.

Si une personne possédant Excel 2010 pouvait me dépanner en enregistrant la macro je lui en serai très reconnaissant.

Merci d'avance

Microsoft 365 et Office | Excel | Pour la maison | Windows

Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.

0 commentaires

31 réponses

Trier par : Le plus utile
Le plus utile Les plus récents Les plus anciens
  1. Anonyme
    2012-05-28T18:36:51+00:00

    Bonsoir

    Alors là c'est un comble!, Microsoft ne l'aurait pas optimisé pour 2010.

    On a l'impression que le vba et l'aide de la version 2010 ont été faits à la va-vite.
    L'aide s'améliore doucement (au moins pour Word), mais vu que la version 2012 se profile, ça fait une bonne raison pour ne pas compléter celle-ci.

    Cette réponse a-t-elle été utile ?

    4 personnes ont trouvé cette réponse utile.
    0 commentaires
  2. Anonyme
    2012-05-27T17:34:01+00:00

    Bonjour,

    Merci pour la réponse, mais ce n'est absolument pas ce que je souhaite obtenir. !

    Je ne désire pas masquer une image mais la recolorier à l'aide d'une macro de la même façon que l'on peut le faire par les menus.

    Cordialement,

    Jean-Claude

    Cette réponse a-t-elle été utile ?

    1 personne a trouvé cette réponse utile.
    0 commentaires
  3. Anonyme
    2012-05-27T22:43:39+00:00

    Bonjour,

    J'avais déjà essayé cela, soit avec ForeColor et/ou BackColor, mais sans succès car l'image elle-même n'est pas modifiée par la couleur choisie.

    Effectivement l'aide est très pauvre à ce sujet. Juste un exemple pour utiliser ColorType qui n'offre que peu de possibilités. Très bien pour passer en tons de gris avec msoPictureGrayscale, mais ce n'est pas suffisant.

    Merci quand même...

    Cette réponse a-t-elle été utile ?

    0 commentaires
  4. Anonyme
    2012-05-27T20:37:04+00:00

    Bonsoir

    La logique voudrait qu'on écrive :
    Set s = ActiveWorkbook.Worksheets(1).Shapes(1)

    With s.Fill
     .ForeColor.RGB = RGB(200, 125, 99)
     .BackColor.RGB = RGB(100, 255, 36)
    End With

    mais ça a l'air assez capricieux et l'aide est particulièrement pauvre.

    Cette réponse a-t-elle été utile ?

    0 commentaires
  5. Anonyme
    2012-05-27T16:51:15+00:00

    Cette réponse a-t-elle été utile ?

    0 commentaires