アクティブなフレームの前面に持っていく方法

Question

いくつかのフレーム（マイクロソフトのフォーム2.0フレーム）をExcelシートに挿入します。そして、私はそれをクリックして他のすべてのフレームの前に持って来たいと思う。それは動作していません。以下のコードを使用してください。フレーム1まだ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 

を試していません