Visual Basic에서 Excel 차트 w/OLE 자동화 만드는 방법

중요: 본 문서는 전문 번역가가 번역한 것이 아니라 Microsoft 기계 번역 소프트웨어로 번역한 것입니다. Microsoft는 번역가가 번역한 문서 및 기계 번역된 문서를 모두 제공하므로 Microsoft 기술 자료에 있는 모든 문서를 한글로 접할 수 있습니다. 그러나 기계 번역 문서가 항상 완벽한 것은 아닙니다. 따라서 기계 번역 문서에는 마치 외국인이 한국어로 말할 때 실수를 하는 것처럼 어휘, 구문 또는 문법에 오류가 있을 수 있습니다. Microsoft는 내용상의 오역 또는 Microsoft 고객이 이러한 오역을 사용함으로써 발생하는 부 정확성, 오류 또는 손해에 대해 책임을 지지 않습니다. Microsoft는 이러한 문제를 해결하기 위해 기계 번역 소프트웨어를 자주 업데이트하고 있습니다.

142387
이 문서가 보관되었습니다. "그대로" 제공되었으며, 업데이트가 되지 않을 것입니다.
요약
이 문서에서는 자동화를 Visual Basic 프로그램에서 워크시트에 포함된 차트가 들어 있는 Excel 통합 문서를 만드는 방법을 보여 줍니다.
추가 정보

예제 프로그램을 만드는 단계

  1. Visual Basic에서 새 프로젝트를 시작하십시오. 기본적으로 Form1이 만들어집니다.
  2. (Command1) 명령 단추를 Form1에 추가하십시오.
  3. Command1_Click 이벤트 프로시저에 다음 코드를 추가하여:
      Private Sub Command1_Click()       Dim oXL As Object        ' Excel application    Dim oBook As Object      ' Excel workbook    Dim oSheet As Object     ' Excel Worksheet    Dim oChart As Object     ' Excel Chart        Dim iRow As Integer      ' Index variable for the current Row    Dim iCol As Integer      ' Index variable for the current Row        Const cNumCols = 10      ' Number of points in each Series    Const cNumRows = 2       ' Number of Series        ReDim aTemp(1 To cNumRows, 1 To cNumCols)        'Start Excel and create a new workbook    Set oXL = CreateObject("Excel.application")    Set oBook = oXL.Workbooks.Add    Set oSheet = oBook.Worksheets.Item(1)        ' Insert Random data into Cells for the two Series:    Randomize Now()    For iRow = 1 To cNumRows       For iCol = 1 To cNumCols          aTemp(iRow, iCol) = Int(Rnd * 50) + 1       Next iCol    Next iRow    oSheet.Range("A1").Resize(cNumRows, cNumCols).Value = aTemp        'Add a chart object to the first worksheet    Set oChart = oSheet.ChartObjects.Add(50, 40, 300, 200).Chart    oChart.SetSourceData Source:=oSheet.Range("A1").Resize(cNumRows, cNumCols)    ' Make Excel Visible:    oXL.Visible = True    oXL.UserControl = True        End Sub					
  4. 프로그램을 실행하려면 F5 키를 눌러 및 명령 단추를 클릭하십시오.
결과: Microsoft Excel을 시작하고 새 통합 문서가 만들어집니다. 임의의 데이터 셀을 A1:J2 추가되고 첫 번째 워크시트에서 차트가 포함된. 포함된 차트를 임의의 데이터를 원본에 대한 사용합니다.

경고: 이 문서는 자동으로 번역되었습니다.

속성

문서 ID: 142387 - 마지막 검토: 12/04/2015 12:58:22 - 수정: 4.3

Microsoft Office Excel 2003, Microsoft Excel 2002 Standard Edition, Microsoft Excel 2000 Standard Edition, Microsoft Excel 97 Standard Edition, Microsoft Visual Basic 6.0 Professional Edition, Microsoft Visual Basic 5.0 Professional Edition, Microsoft Visual Basic Enterprise Edition for Windows 6.0, Microsoft Visual Basic 5.0 Enterprise Edition

  • kbnosurvey kbarchive kbmt kbhowto kbprogramming KB142387 KbMtko
피드백