Sdílet prostřednictvím


ApplicationFactory.GetVstoObject – metoda (_Worksheet)

Vrátí Microsoft.Office.Tools.Excel.Worksheet hostitele zboží, který rozšiřuje funkčnost objektu zadaného nativní sešitu.

Obor názvů:  Microsoft.Office.Tools.Excel
Sestavení:  Microsoft.Office.Tools.Excel (v Microsoft.Office.Tools.Excel.dll)

Syntaxe

'Deklarace
Function GetVstoObject ( _
    worksheet As _Worksheet _
) As Worksheet
Worksheet GetVstoObject(
    _Worksheet worksheet
)

Parametry

Vrácená hodnota

Typ: Microsoft.Office.Tools.Excel.Worksheet
hostitelpoložka , která rozšiřuje funkcelist nativníobjekt.

Poznámky

Volání této metoda aplikace-úroveň doplněk upravit libovolný list , který je otevřený v aplikaci Excel. Tato metoda generuje nový Microsoft.Office.Tools.Excel.Worksheet objektu, pokud žádný takový objekt již byl vygenerován. Následná volání této metody vrátit mezipaměti existující instanci Microsoft.Office.Tools.Excel.Worksheet objektu. Další informace naleznete v tématu Extending Word Documents and Excel Workbooks in Application-Level Add-ins at Run Time.

Poznámka

worksheet Typ parametru je Microsoft.Office.Interop.Excel._Worksheet, která je nadřazená rozhraní Microsoft.Office.Interop.Excel.Worksheet. Tuto metoda lze proto přijmout obou typů objektů: Microsoft.Office.Interop.Excel._Worksheetand Microsoft.Office.Interop.Excel.Worksheet. Obvykle při odkazu na listaplikace Excel použít Microsoft.Office.Interop.Excel.Worksheet.

Příklady

Následující příklad kódu vytváří Microsoft.Office.Tools.Excel.Worksheetpoložkahostitelpro každou Microsoft.Office.Interop.Excel.Workbookobjekt , který mápoložka hostitel. Chcete-li použít tento kód spustit z ThisAddInExcel doplněkaplikaceprojekt kterýtřída .NET Framework 4.

Private Sub Application_WorkbookBeforeSave( _
    ByVal Wb As Microsoft.Office.Interop.Excel.Workbook, _
    ByVal SaveAsUI As Boolean, _
    ByRef Cancel As Boolean) Handles Application.WorkbookBeforeSave

    If Globals.Factory.HasVstoObject(Wb) = True Then
        For Each interopSheet As Excel.Worksheet In Wb.Worksheets
            If Globals.Factory.HasVstoObject(interopSheet) = True Then
                Dim vstoSheet As Worksheet = Globals.Factory.GetVstoObject(interopSheet)
                If vstoSheet.Controls.Count > 0 Then
                    System.Windows.Forms.MessageBox.Show( _
                        "The VSTO controls are not persisted when you" _
                        + " save and close this workbook.", _
                        "Controls Persistence", _
                        System.Windows.Forms.MessageBoxButtons.OK, _
                        System.Windows.Forms.MessageBoxIcon.Warning)
                    Exit For
                End If
            End If
        Next
    End If
End Sub
void Application_WorkbookBeforeSave(
    Microsoft.Office.Interop.Excel.Workbook Wb, bool SaveAsUI, 
    ref bool Cancel)
{            
    if (Globals.Factory.HasVstoObject(Wb) == true)
    {                
        foreach (Excel.Worksheet interopSheet in Wb.Worksheets)
        {
            if (Globals.Factory.HasVstoObject(interopSheet) ==  true)
            {
                Worksheet vstoSheet = Globals.Factory.GetVstoObject(interopSheet);
                if (vstoSheet.Controls.Count > 0)
                {
                    System.Windows.Forms.MessageBox.Show(
                        "The VSTO controls are not persisted when you"
                        + " save and close this workbook.",
                        "Controls Persistence",
                        System.Windows.Forms.MessageBoxButtons.OK,
                        System.Windows.Forms.MessageBoxIcon.Warning);
                    break;
                }
            }
        }
    }
}

Zabezpečení rozhraní .NET Framework

Viz také

Odkaz

ApplicationFactory Rozhraní

GetVstoObject – přetížení

Microsoft.Office.Tools.Excel – obor názvů

Další zdroje

Extending Word Documents and Excel Workbooks in Application-Level Add-ins at Run Time

Getting Extended Objects from Native Office Objects in Document-Level Customizations