Enregistrer une forme en .bmp

Bonjour,

Je souhaiterai exporter une forme dessinée dans Excel (un groupe de formes en faite) en.bmp j'ai essayé le code suivant :

ActiveSheet.Shapes("dessinfinal").Export Filename:="h:\toto22.bmp", FilterName:="bmp"

j'ai le message d'erreur qui apparait : 438 propriété ou méthode non gérée par cet objet.

Cordialement

bonjour,

j' ai essayé ce nouveau code mais tjrs sans succès :

ActiveSheet.Shapes("dessinfinal").select

Export Filename:="h:\toto22.bmp", FilterName:="bmp"

Est il vraiment possible de réaliser un export en bmp ou jpg ou tif ou gif d'une forme geométrique dessinée sous excel à partir de vba ?

Merci d' avance

 Sub Image_ClipBoard()
Dim x As Byte
Dim Sh As Shape
Dim monImage As String

'Compte le nombre d'objet initial dans la feuille
x = ActiveSheet.Shapes.Count

Application.ScreenUpdating = False
ActiveSheet.Range("A1").Select
'Colle le contenu du presse papier dans la feuille de calcul
ActiveSheet.Paste

'vérifie si le collage effectué correspond à une image
If x = ActiveSheet.Shapes.Count Then
    Application.ScreenUpdating = True
    MsgBox "Opération annulée"
    Exit Sub

    Else

    'Récupère la dernière forme de la feuille
    Set Sh = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
    'Définit le nom et le lieu de stockage de l'image
    monImage = "C:\Users\FP03395S\Documents\test.bmp"

    'Colle l'image dans un graphique
    With ActiveSheet.ChartObjects.Add(0, 0, Sh.Width, Sh.Height).Chart
        .Paste
        'Sauvegarde l'image du graphique au format jpg
        .Export monImage, "bmp"
    End With

    'Supprime le graphique et la forme.
    With ActiveSheet
        .ChartObjects(ActiveSheet.ChartObjects.Count).Delete
        .Shapes(ActiveSheet.Shapes.Count).Delete
    End With

    Application.ScreenUpdating = True

End If

End Sub

un code trouvé sur le net, puis réadapté pour que ca colle a mon besoin, sans doute a nettoyer. toute proposition d' amélioration est la bienvenue.