[VBA] Chart 관련 작은 것들

Excel VBA를 이용하여 자동으로 그래프를 수정하는 함수를 만들어보았다.

정말정말정말정말, 초보인지라 끄적끄적 해 본 것이라 허접하기 그지 없다.

하지만 조금씩 발전시켜서 완전 자동화로 만들어 보리라 !!

---

Sub SetasVertical()

    Application.ScreenUpdating = False

    Range("B2:Z5").Select

    Selection.Copy

    Range("AA2").Select

    Selection.Insert Shift:=xlToRight

    

    Range("B2:Z5").Select

    Selection.Copy

    Range("AZ2").Select

    Selection.Insert Shift:=xlToRight

    

    Range("BW2:BX5").Select

    Selection.Copy

    Range("BY2").Select

    Selection.Insert Shift:=xlToRight

    Range("Z2").Select

    Application.CutCopyMode = False

    Range("Z2:Z7").Select

    Selection.AutoFill Destination:=Range("Z2:BZ7"), Type:=xlFillDefault

    Range("Z2:BX7").Select

    Rows("8:14").Select

    Selection.Delete Shift:=xlUp

    Range("A1:Z1").Select

End Sub

Sub ChartAdd()

    Dim sheetnum As Integer

    

    sheetnum = ActiveSheet.Name

    

    ActiveSheet.ChartObjects.Select

    ActiveChart.ChartArea.Select

    ActiveChart.SetSourceData Source:=Range("B2:CB5")

    

    With ActiveChart

        If .PlotBy = xlRows Then

           .PlotBy = xlColumns

        Else

            .PlotBy = xlRows

        End If

    End With

End Sub

Sub ChartModify()

    ActiveSheet.ChartObjects.Select

    With ActiveChart.SeriesCollection(78).Border

        .Color = RGB(0, 0, 255)

        .Weight = 4

        .LineStyle = xlDot

    End With

    

    With ActiveChart.SeriesCollection(79).Border

        .Color = RGB(255, 0, 0)

        .Weight = 4

        .LineStyle = xlDot

    End With

    

End Sub

---