주식 차트를 만드는 코드를 작성하고 싶습니다 아래코드를 어떻게 수정하면 될까요 ? Sub 주식차트_AddChart2()    Dim ws As Worksheet    Dim shData

Sub 주식차트_AddChart2()    Dim ws As Worksheet    Dim shData As Worksheet    Dim ch As Chart    Dim shp As Shape    Set ws = ActiveSheet    Set shData = Worksheets("데이타")    ' 숫자 텍스트 방지    shData.Range("B2:E12").Value = shData.Range("B2:E12").Value    ' 기존 차트 삭제    For Each shp In ws.Shapes        If shp.HasChart Then shp.Delete    Next shp    Set shp = ws.Shapes.AddChart2(322, 2)   ' 2 = xlStockOHLC    Set ch = shp.Chart    ' 데이터 연결    ch.SetSourceData Source:=shData.Range("A1:E12")    ch.HasLegend = False    '-------------------------------------------------    ' 차트 위치/크기 설정 (분리)    '-------------------------------------------------    With shp        .Left = ws.Range("K3").Left        .Top = ws.Range("K3").Top        .Width = ws.Range("K3:Q13").Width        .Height = ws.Range("K3:Q13").Height    End WithEnd Sub막대 그래프가 만들어 지내요

여기 부분을 수정해보세요

​

Set shp = ws.Shapes.AddChart2(322, 2 ) ' 2 = xlStockOHLC

​

에서 2를 88 ~ 91 로

​

xlStockHLC	88	High-Low-Close.
xlStockOHLC	89	Open-High-Low-Close.
xlStockVHLC	90	Volume-High-Low-Close.
xlStockVOHLC	91	Volume-Open-High-Low-Close.

​