Excel 2007 VBA Установка проблем Ось Заголовок - PullRequest
Новая
       10

Excel 2007 VBA Установка проблем Ось Заголовок

3 голосов
/ 12 августа 2011

Мне нужна помощь в настройке заголовка осей X и Y в Excel 2007 VBA.Он продолжает жаловаться на «Требуется объект»: 

Sub macro2()

Dim xAxis As Axis

icount = 1

Charts.Add
Charts(icount).Name = iskewplane & "deg Skew Plane"
Charts(icount).Activate

Set xAxis = Charts(icount).Axes(xlCategory)
With xAxis
    .Axis
    .AxisTitle.Text = "Theta (deg)"
End With

Что-то не так в моем коде?Я попытался записать макрос во время установки имени заголовка оси, но макрос пуст во время установки имени.

Любая помощь приветствуется

Ответы [ 2 ]

6 голосов
/ 12 августа 2011

Вы должны использовать Option Explicit, потому что iCount не был определен, а iskewplane тоже не был.

Вот правильный код: 

Sub mac()
    Dim xAxis As Axis
    Dim iCount As Integer
    iCount = 1
    Charts.Add
     Charts(iCount).Name = "deg Skew Plane"
    Charts(iCount).Activate

    Set xAxis = Charts(iCount).Axes(xlCategory)
    With xAxis
        .HasTitle = True
        .AxisTitle.Caption = "Theta (deg)"
    End With
End Sub
3 голосов
/ 12 августа 2011

Сначала вы должны создать объект AxisTitle - ось не имеет его автоматически. Это делается установкой Axis.HasTitle = True - немного необычный метод.

...