Copier un contenu de cadre dans une feuille (vba)

J'ai un cadre dans un formulaire utilisateur, dans ce cadre j'ai des images et des étiquettes. Je dois mettre tout le cadre exactement est-ce dans userform, mettre directement dans une feuille. Im utilisant ce code pour créer un cadre en feuille, et recevoir l'image de l'image dans le formulaire utilisateur. Mais dans ce cas, seul le picutre sera copié, pas les étiquettes.Copier un contenu de cadre dans une feuille (vba)

Private Sub CommandButton1_Click() 
Dim oCheck As OLEObject 

For Each oCheck In Plan1.OLEObjects 
    oCheck.Delete 
Next oCheck 

With Plan1.OLEObjects.Add(classtype:="Forms.Frame.1", _ 
    Top:=260, Left:=25, Height:=273, Width:=490) 
     .Object.Caption = "" 
     .Object.Picture = Me.Frame1.Picture 
     .Object.BackColor = "&HFFFFFF" 
End With

Avez-vous des suggestions?

Merci

Source

2017-09-19 Fabiano Heringer