Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Membre régulier
    Profil pro
    Inscrit en
    août 2010
    Messages
    159
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : août 2010
    Messages : 159
    Points : 73
    Points
    73

    Par défaut Macro pour changer le type d'habillage

    Bonjour le Forum,

    Je souhaite créer une macro pour changer le type d'habillage de l'image sélectionnée avant le lancement de la macro.

    Problème : une fois l'enregistreur de macro lancé, les outils de la fenêtre Format de l'image > onglet Habillage ne sont pas opérationnels...
    Comment faire ? (je souhaite sélectionner l'habillage "devant le texte")

    Merci !

  2. #2
    Membre régulier
    Profil pro
    Inscrit en
    août 2010
    Messages
    159
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : août 2010
    Messages : 159
    Points : 73
    Points
    73

    Par défaut

    Bon, il m'aura fallu chercher dans les recoins du web pour trouver qqch qui a l'air simple une fois que ça fonctionne !

    Alors, voilà 2 macros pour le prix d'une :

    Pour permettre de changer l'habillage d'une image pour laquelle les boutons d'habillage restent désespérément grisés (et les poignées autour de l'image sont des carrés noirs au lieu d'être des ronds vides).

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Sub Format_Image_Habillage_autorisé()
     
    ActiveDocument.InlineShapes(1).Select
    Selection.InlineShapes(1).ConvertToShape
     
    End Sub
    Et pour appliquer directement un type d'habillage prédéfini

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Sub Format_Image_Habillage_rapproché()
     
    Selection.ShapeRange.WrapFormat.Type = 1 
    'cette valeur permet de choisir le type d'habillage : 1= rapproché — 2= au travers — 3= devant le texte — 4= haut et bas — 5= derrière le texte — 6= devant le texte
     
    End Sub
    Voilà, c'est tout.
    Et j'espère que ça pourra servir à d'autres.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 8
    Dernier message: 29/12/2015, 11h05
  2. Macro pour changer automatiquement certaines cellules?
    Par Zantetsu dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 20/01/2009, 19h54
  3. Alter pour changer le type d'un champ
    Par harry25 dans le forum Access
    Réponses: 1
    Dernier message: 20/09/2007, 11h46
  4. Réponses: 1
    Dernier message: 15/09/2006, 16h23
  5. Réponses: 3
    Dernier message: 07/02/2006, 13h26

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo