0

ソースが「CL.1.1」という名前の同じExcelの他のシートからのものであるExcelのページ1にグラフを追加するvbscriptコードを作成しましたが、上記のエラーが発生しています。 .

Sub DispvsTime(Shname)
    Sheets("Sheet1").Select
    noofsheets = ActiveSheet.ChartObjects.Count
    If noofsheets > 0 Then
       ActiveSheet.ChartObjects.Select
       ActiveSheet.ChartObjects.Delete
    End If
    Sheets("Sheet1").Pictures.Visible = False
    ActiveSheet.Shapes.AddChart(1000, 420, 50, 500).Select
    ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
    ActiveChart.SetSourceData Source:=Sheets("Shname").Range("G2:H2001")
    ActiveChart.SetElement (msoElementChartTitleAboveChart)
    ActiveChart.ChartTitle.Text = "Displacement VS Time"
End Sub

ここで「shname」は、データが選択されるシートの名前です。

4

1 に答える 1

0

行すべきではない

ActiveChart.SetSourceData Source:=Sheets("Shname").Range("G2:H2001")

なれ

ActiveChart.SetSourceData Source:=Sheets(Shname).Range("G2:H2001")

「Shname」という名前のシートだけでなく、変数Shnameを使用したいので

お役に立てれば！

于 2013-05-10T09:32:54.537 に答える