• 쇼핑몰
  • 커뮤니티
  • 북마크

vb6.0/vba




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

하나를하더라도최선을
2019.07.18 00:37 1,364 0

본문



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


댓글목록 0

등록된 댓글이 없습니다.