프레임 내용을 시트 (VBA)로 복사

나는이 프레임에 그림과 레이블이있는 사용자 정의 프레임을 가지고 있습니다. 나는 전체 프레임을 정확하게 넣을 필요가있다. 시트에 직접 넣어서 userform에 넣는다.프레임 내용을 시트 (VBA)로 복사

이 코드를 사용하여 시트에 프레임을 만들고 userform에 프레임 사진을 수신합니다. 그러나이 경우에는 레이블이 아니라 복사본 만 복사됩니다.

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

Sugestions? 이 여기에 crossposted 된

출처

2017-09-19 Fabiano Heringer