Freigeben über


ApplicationFactory.HasVstoObject-Methode (ListObject)

Gibt einen Wert zurück, der angibt, ob für das angegebene systemeigene Listenobjekt ein Microsoft.Office.Tools.Excel.ListObject vorhanden ist.

Namespace:  Microsoft.Office.Tools.Excel
Assemblys:   Microsoft.Office.Tools.Excel (in Microsoft.Office.Tools.Excel.dll)
  Microsoft.Office.Tools.Excel.v4.0.Utilities (in Microsoft.Office.Tools.Excel.v4.0.Utilities.dll)

Syntax

'Declaration
Function HasVstoObject ( _
    listObject As ListObject _
) As Boolean
bool HasVstoObject(
    ListObject listObject
)

Parameter

Rückgabewert

Typ: System.Boolean
true, wenn für das angegebene Microsoft.Office.Interop.Excel.ListObject-Objekt ein Microsoft.Office.Tools.Excel.ListObject-Objekt vorhanden ist, andernfalls false.

Beispiele

Im folgenden Codebeispiel wird jedes systemeigene Listenobjekt in einem Arbeitsblatt überprüft, um zu bestimmen, ob das Listenobjekt über ein zugeordnetes Hostelement verfügt. Wenn Sie diesen Code verwenden möchten, führen Sie ihn von der ThisAddIn-Klasse in einem Excel-Add-In-Projekt aus, dessen Ziel .NET Framework 4 oder .NET Framework 4.5 ist.

Dim mySheet As Excel.Worksheet = Me.Application.ActiveSheet
If mySheet.ListObjects.Count > 0 Then
    For Each list As Excel.ListObject In mySheet.ListObjects
        If Globals.Factory.HasVstoObject(list) = True Then
            System.Windows.Forms.MessageBox.Show( _
                "The VSTO properties of list objects are not " _
                + "persisted when you save and close this workbook.", _
                "VSTO ListObject", _
                System.Windows.Forms.MessageBoxButtons.OK, _
                System.Windows.Forms.MessageBoxIcon.Warning)
            Exit For
        End If
    Next
End If
Excel.Worksheet mySheet = (Excel.Worksheet)
    this.Application.Worksheets["Sheet1"];
if (mySheet.ListObjects.Count > 0)
{
    foreach (Excel.ListObject list in mySheet.ListObjects)
    {
        if (Globals.Factory.HasVstoObject(list) == true)
        {
            System.Windows.Forms.MessageBox.Show(
                "The VSTO properties of list objects are not "
                + "persisted when you save and close this workbook.",
                "VSTO ListObject",
                System.Windows.Forms.MessageBoxButtons.OK,
                System.Windows.Forms.MessageBoxIcon.Warning);
            break;
        }
    }
}

.NET Framework-Sicherheit

Siehe auch

Referenz

ApplicationFactory Schnittstelle

HasVstoObject-Überladung

Microsoft.Office.Tools.Excel-Namespace