[vba] 엑셀 시트에 웹 브라우저 컨트롤 지우고 새로 삽입

Sub program1472_com()

    Dim OleFrame As OLEObject

    Dim CtrlBrowser As Control

    Dim Browser As Object

    On Error Resume Next

    ActiveSheet.Shapes.Range(Array("FM")).Delete

    Set OleFrame = ActiveSheet.OLEObjects.Add("Forms.Frame.1", link:=False, DisplayAsIcon:=False)

    Set CtrlBrowser = OleFrame.Object.Controls.Add("Shell.Explorer.2", "Browser")

    OleFrame.Name = "FM"

    CtrlBrowser.Name = "IE"

    With OleFrame

        .Width = [B20:T63].Width - 10

        .Height = [B20:T63].Height - 10

        .Top = [B20].Top + 5

        .Left = [B20].Left + 5

    End With

    With CtrlBrowser

        .Top = 10

        .Left = 5

        .Width = OleFrame.Width - 10

        .Height = OleFrame.Height - 25

    End With

    Set Browser = CtrlBrowser.Object

    Browser.navigate "program1472.com"

    ActiveSheet.OLEObjects("FM").Object.Caption = "http://program1472.com"

    OleFrame.Activate

End Sub