VBA Afficher un Objet dans un Userform

Bonjour,

J'arrive actuellement à afficher dans mes histogrammes dans un userform avec le code suivent.

Private Sub Bouton_01_Click()

' Déclaration variables
    Dim Feuille As Worksheet
    Dim Dossier As String
    Dim MonGraphique As Object

    On Error GoTo 1

    ' Affectation des variables
    Set Feuille = Sheets("G1") ' On selectionne le nom de la feuille ou se trouve le graphique
    Set MonGraphique = Feuille.ChartObjects(1).Chart 'On affecte le nom du graphique / 1 numéro du graphique
    ' On choisi ou sauvegarder le graphique en tant qu'image
    Dossier = "C:ImageGraph3.jpg"
    MonGraphique.Export Dossier ' Exporte le graphique dans le dossier
    Me.imgGraphique.Picture = LoadPicture(Dossier) ' On charge l'image du graphique

1

End Sub

ChartObjects ne fonctionnant pas pour cela, je souhaiterai afficher une forme classique (Rectangle dans lequel j'ai inséré des informations).

Je vous remercie par avance.

Bonjour,

voici un exemple pour exporter en fichier jpg, une forme ou image placer sur une feuille de calcul

Sub Shape_Export()
Application.ScreenUpdating = True

Set sh = ActiveSheet.Shapes(1) 'adapter au nom de l'onglet et au nom de la forme
sh.Copy

    'Définit le nom et le lieu de stockage de l'image
    monImage = "C:\Users\isabelle\Documents\test\test.jpg" 'adapter

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

    'Supprime le graphique et la forme.
    ActiveSheet.ChartObjects(1).Delete

Application.ScreenUpdating = True
End Sub
Rechercher des sujets similaires à "vba afficher objet userform"