次の方法で共有


ChartSheetBase.Next Property

Definition

Gets a Worksheet object that represents the next sheet.

public:
 property System::Object ^ Next { System::Object ^ get(); };
public object Next { get; }
member this.Next : obj
Public ReadOnly Property Next As Object

Property Value

A Worksheet object that represents the next sheet.

Examples

The following code example uses the Next and Previous properties to display the names of the next and previous sheets for the current Microsoft.Office.Tools.Excel.ChartSheetBase.

private void DisplayNextAndPrevious()
{
    Globals.Sheet1.Range["A1", "A5"].Value2 = 22;
    Globals.Sheet1.Range["B1", "B5"].Value2 = 55;

    this.SetSourceData(Globals.Sheet1.Range["A1", "B5"],
        Excel.XlRowCol.xlColumns);
    this.ChartType = Excel.XlChartType.xl3DColumn;

    Excel.Worksheet nextSheet = (Excel.Worksheet)this.Next;
    Excel.Worksheet previousSheet = 
        (Excel.Worksheet)this.Previous;

    if (nextSheet != null)
    {
        MessageBox.Show("The next sheet is: " + 
            nextSheet.Name);
    }
    else
    {
        MessageBox.Show("This sheet is the last sheet.");
    }

    if (previousSheet != null)
    {
        MessageBox.Show("The previous sheet is: " + 
            previousSheet.Name);
    }
    else
    {
        MessageBox.Show("This sheet is the first sheet.");
    }
}
Private Sub DisplayNextAndPrevious()
    Globals.Sheet1.Range("A1", "A5").Value2 = 22
    Globals.Sheet1.Range("B1", "B5").Value2 = 55

    Me.SetSourceData(Globals.Sheet1.Range("A1", "B5"), _
        Excel.XlRowCol.xlColumns)
    Me.ChartType = Excel.XlChartType.xl3DColumn

    Dim nextSheet As Excel.Worksheet = _
        CType(Me.Next, Excel.Worksheet)
    Dim previousSheet As Excel.Worksheet = _
        CType(Me.Previous, Excel.Worksheet)

    If Not (nextSheet Is Nothing) Then
        MsgBox("The next sheet is: " & nextSheet.Name)
    Else
        MsgBox("This sheet is the last sheet.")
    End If

    If Not (previousSheet Is Nothing) Then
        MsgBox("The previous sheet is: " & _
            previousSheet.Name)
    Else
        MsgBox("This sheet is the first sheet.")
    End If
End Sub

Applies to