Word Macro pour styliser les images

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