vba [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"
OleFrame.Activate
End Sub
- 이전글[vb6.0/vba] 모든 조합(중복) 19.08.02
- 다음글[vba] 파일을 열지않고 수정 및 저장하기 19.07.08
댓글목록
등록된 댓글이 없습니다.