ApplicationFactory.HasVstoObject メソッド (ListObject)
指定したネイティブのリスト オブジェクトに、Microsoft.Office.Tools.Excel.ListObject が存在するかどうかを示す値を取得します。
名前空間: Microsoft.Office.Tools.Excel
アセンブリ: Microsoft.Office.Tools.Excel (Microsoft.Office.Tools.Excel.dll 内)
Microsoft.Office.Tools.Excel.v4.0.Utilities (Microsoft.Office.Tools.Excel.v4.0.Utilities.dll 内)
構文
'宣言
Function HasVstoObject ( _
listObject As ListObject _
) As Boolean
bool HasVstoObject(
ListObject listObject
)
パラメーター
- listObject
型 : Microsoft.Office.Interop.Excel.ListObject
テストするネイティブな Excel リスト オブジェクトです。
戻り値
型 : System.Boolean
指定した Microsoft.Office.Interop.Excel.ListObject オブジェクトに Microsoft.Office.Tools.Excel.ListObject が存在する場合は true。それ以外の場合は false です。
例
次のコード例は、リスト オブジェクトに関連付けられたホスト項目があるかどうかを判断するために、ワークシート内の各ネイティブ リスト オブジェクトをチェックします。このコードは、実行 ThisAddIn のクラスから、ターゲット .NET Framework 4 または .NET Framework 4.5を Excel アドイン プロジェクトで使用します。
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 セキュリティ
- 直前の呼び出し元に対する完全な信頼。このメンバーは、部分的に信頼されているコードから使用することはできません。詳細については、「部分信頼コードからのライブラリの使用」を参照してください。