如何在activex框架上引入前面

Question

我将一些框架（microsoft forms 2.0 frame）插入Excel工作表。我希望我可以点击一个，然后把它带到所有其他帧的前面。但它不起作用。使用下面的代码。 frame1仍然在frame2,3,4 ... msobringtofront在正常插入的形状上运行良好，但不适用于框架

Private Sub Frame1_Click()
ActiveSheet.Shapes("frame1").ZOrder msoBringtofront
End Sub

Answer 1

试试这个

Sub Sample()
    Dim oleObj As OLEObject

    Set oleObj = ActiveSheet.OLEObjects("frame1")

    oleObj.BringToFront
End Sub