关于引用Graph对象的问题(给出一个程序，看看为什么会这样？？？)

Question

'在运行此程序之前先引用Microsoft Graph x.0 Object LibraryDim myChart As graph.ApplicationPrivate Sub Command1_Click()
Dim i As Integer
Dim j As Integer
On Error GoTo PROC
Set myChart = graph.Application'填加随机数
For i = Asc("A") To Asc("L")
    For j = 1 To 8
      myChart.Application.DataSheet.Range(Chr(i) & j).Value = Rnd()
    Next
NextWith myChart.Application.Chart
.Axes (xlCategory)
.HasTitle = True
.AxisTitle.Text = "这是坐标轴上标题的位置" '此处运行不下去
End With'指定图表的标题
myChart.Application.Chart.ChartTitle.Text = "这是图表标题的置"
myChart.Visible = True
Set myChart = Nothing
Exit Sub
PROC:
MsgBox Err.Description
End Sub问题：
我曾直接copyMSDN里的各种例子，但都不能正常运行，可能是对象没定义好（不会正确定义对象变量，怎样去定义它才能保障程序正常运行？？？？

Answer 1

我试了
也是这个问题
With myChart.Application.Chart
.Axes (xlCategory)
.HasTitle = True
'.AxisTitle.Text = "这是坐标轴上标题的位置" '此处运行不下去
End With没有axistitle属性，可能这个属性不在Chart中

Answer 2

有可能还有一级
如：
With myChart.Application.Chart.分类轴

Answer 3

Dim myChart As Graph.ApplicationPrivate Sub Command1_Click()
Dim i As Integer
Dim j As Integer
On Error GoTo PROC
Set myChart = Graph.Application'填加随机数
For i = Asc("A") To Asc("L")
    For j = 1 To 8
      myChart.Application.DataSheet.Range(Chr(i) & j).Value = Rnd()
    Next
NextWith myChart.Application.Chart
    With .Axes(xlCategory)
        .HasTitle = True
        .AxisTitle.Text = "这是横坐标轴上标题的位置"
    End With
    
    With .Axes(xlValue)
        .HasTitle = True
        .AxisTitle.Text = "这是纵坐标轴上标题的位置"
    End With
    
    '指定图表的标题
    .HasTitle = True
    .ChartTitle.Text = "这是图表标题的置"
End WithmyChart.Visible = True
Set myChart = Nothing
Exit Sub
PROC:
MsgBox Err.Description
End Sub

Answer 4

感谢楼上的代码
我改进了一下Dim myChart As Graph.ApplicationPrivate Sub Command1_Click()
Dim i As Integer
Dim j As Integer
On Error GoTo PROC
Set myChart = Graph.Application'填加随机数
For i = Asc("A") To Asc("L")
    For j = 1 To 8
      myChart.Application.DataSheet.Range(Chr(i) & j).Value = Rnd()
    Next
NextWith myChart.Application.Chart.Axes(xlCategory)
        .HasTitle = True
        .AxisTitle.Text = "这是横坐标轴上标题的位置"
End With
With myChart.Application.Chart.Axes(xlValue)
        .HasTitle = True
        .AxisTitle.Text = "这是纵坐标轴上标题的位置"
End With
With myChart.Application.Chart
    '指定图表的标题
    .HasTitle = True
    .ChartTitle.Text = "这是图表标题的置"
End WithmyChart.Visible = True
Set myChart = Nothing
Exit Sub
PROC:
MsgBox Err.Description
End Sub