Word Macro pour styliser les images

[coucou31]

Bonjour à tous 🙂
Depuis longtemps, j'aimerais pouvoir modifier des raccourcis clavier pour changer les caractéristiques de mes images sur word 2016. J'aimerais donc trouver un code notamment pour "rogner une image selon la forme rectangle arrondie + encadrement en noir" ou bien "appliquer le style rapide rectangle en relief".
Je ne suis pas du tout codeur et je n'ai appris l'existence du panneau VBA que récemment, je vous remercie de votre aide par avance !

 

[Staple1600]

Bonjour

Un essai imparfait
Avec une image insérée par Insertion/Images/Insérer une image à partir de/de cet appareil

Sub Test()
Dim WdShape As Word.shape
'Conversion de l'image en Shape
Set WdShape = ActiveDocument.InlineShapes(1).ConvertToShape
WdShape.AutoShapeType = msoShapeRoundedRectangle
WdShape.Fill.Solid
    With WdShape.Line
        .Weight = 3
        .Style = msoLineThickThin
        .ForeColor.RGB = vbBlack
    End With
    'Paramètres Ombre
    With WdShape.Shadow
        .Style = msoShadowStyleOuterShadow
        .Blur = 6
        .Transparency = 0.6
        .Size = 100
    End With
    'Paramètres 3D
    With WdShape.ThreeD
        .BevelBottomType = msoBevelNone
        .BevelBottomDepth = 0
        .BevelBottomInset = 0
        .BevelTopType = msoBevelCircle
        .BevelTopDepth = 9
        .BevelTopInset = 12
        .Perspective = msoFalse
        .PresetMaterial = msoMaterialPlastic
        .PresetLighting = msoLightRigTwoPoint
        .LightAngle = 70
    End With
WdShape.ConvertToInlineShape
End Sub

Le résultat obtenu ressemble un tant soi peu à
Styles d'image/Rectangle en relief

Testé sur Word 365