帧内容复制到一个表（VBA）

我在用户窗体具有框架，在该帧i有图片和标签。我需要把整个框架完全放在用户窗体中，直接放到表单中。帧内容复制到一个表（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

任何建议？

感谢

来源

2017-09-19 Fabiano Heringer