자료실

부자는 돈을 써서 시간을 아끼지만 가난한 사람은 시간을 써서 돈을 아낀다

vb6.0/vba

IT HUB를 찾아주셔서 감사합니다.

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

페이지 정보

profile_image
작성자 하나를하더라도최선을
댓글 0건 조회 7,817회 작성일 19-07-18 00:37

본문

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

댓글목록

등록된 댓글이 없습니다.