[[20190324071445]]　『VBA　1004エラー』（dskc）　ページの最後に飛ぶ

『VBA　1004エラー』（dskc）

Sub gurahu()

    Dim c(5) As Integer
    Dim i As Integer, n As Integer

    Charts.Add

    With ActiveChart
        .SetSourceData Worksheets("sheet1").Range("b4:h10"), xlRows
        .ChartType = xlSurface
        .Location xlLocationAsNewSheet, "FIG1"
        .Elevation = 15
        .RightAngleAxes = False
        .Perspective = 20
        .Rotation = 20
        .HeightPercent = 110
        .HasTitle = True
        With ChartTitle
            .Text = "等値線図（色の間隔は２０）"
            .Font.Size = 18
            .Font.FontStyle = "太字"
            .Characters(5, 9).Font.Size = 15
            .Characters(5, 9).Font.FontStyle = "標準"
        End With
        With .Axes(xlValue)
            .MinimumScale = 0
            .MaximumScale = 100
            .MajorUnit = 20
            .HasMajorGridlines = False
            .MajorTickMark = xlOutside
            .MinorTickMark = xlTickMarkNone
            n = Application.WorksheetFunction.RoundUp((.MaximumScale - .MinimumScale) / .MajorUnit, 0)
        End With
        With .Axes(xlSeries)
            .TickLabelSpacing = 2
            .TickMarkSpacing = 1
            .MajorTickMark = xlOutside
            .MinorTickMark = xlNone
        End With

        c(1) = 37
        c(2) = 33
        c(3) = 41
        c(4) = 5
        c(5) = 11
        For i = 1 To n
            .Legend.LegendEntries(i).LegendKey.Interior.ColorIndex = c(i)
        Next i
    End With

End Sub

エラーの理由がわかりません、どなたか教えていただけると助かります。

＜使用 Excel：Excel2010、使用 OS：Windows10 ＞

 With ChartTitle
 これを
 With .ChartTitle
 こうする
（´・ω・`） 2019/03/24(日) 08:03

すみません、ありがとうございます。
（dskc） 2019/03/24(日) 22:49

コメント返信：

[ 一覧(最新更新順) ]

[[20190324071445]] 『VBA 1004エラー』（dskc） ページの最後に飛ぶ

[[20190324071445]]　『VBA　1004エラー』（dskc）　ページの最後に飛ぶ