Question

我在userform中有一个框架，在这个框架中我有图片和标签。我需要将整个框架完全放在userform中，直接放入工作表中。

我使用此代码将一个帧创建为工作表，并在userform中接收帧的图片。但在这种情况下，只会复制picutre，而不会复制标签。

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？

由于

Answer 1

这已经在此处进行了交叉：http://www.vbaexpress.com/forum/showthread.php?60787-Copy-whole-frame-content-to-worksheet&p=369690&viewfull=1#post369690

将帧内容复制到工作表（vba）

1 个答案: