[vba] [vba] 엑셀 시트에 웹 브라우저 컨트롤 지우고 새로 삽입
하나를하더라도최선을
2019-07-18 00:37
5,491
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"
OleFrame.Activate
End Sub
댓글목록0