HypDeleteMetaData

データ・プロバイダ・タイプ: Essbase、Planning、Financial Management、Hyperion Enterprise、Oracle Hyperion Reporting and Analysis

説明

HypDeleteMetaData()は、次の3つのいずれかのモードで、ワークブックからSmart Viewメタデータを削除します:

構文

HypDeleteMetaData(vtDispObject, vtbWorkbook, vtbClearMetadataOnAllSheetsWithinWorkbook)

vtDispObject As Variant

vtbWorkbook As Variant

vtbClearMetadataOnAllSheetsWithinWorkbook As Variant

パラメータ

vtDispObject: メタデータを削除するワークシートまたはワークブックを示す、ワークシートまたはワークブックのディスパッチ・オブジェクト。Nullが渡された場合、vtbWorkbookによりアクティブなワークシートまたはアクティブなワークブックが決定され、削除されます。

vtbWorkbook: ブール値。ワークシート・ディスパッチまたはワークブック・ディスパッチを渡したことを示します。vtDispObjectにNullが渡されている場合、このフラグは、ユーザーがアクティブなワークシートまたはアクティブなワークブックからメタデータを削除することを求めていると判断します。

vtbClearMetadataOnAllSheetsWithinWorkbook: ブール値。Smart Viewメタデータをワークブック内のすべてのシートから削除するように指定します。vtbWorkbookがTrueに設定されている場合にのみ使用されます。

戻り値

正常に終了した場合は0を戻し、それ以外の場合は該当するエラー・コードを戻します。

例

      
Public Declare Function HypDeleteMetaData Lib "HsAddin" (ByVal vtDispObject As Variant, ByVal vtbWorkbook As Variant, ByVal vtbClearMetadataOnAllSheetsWithinWorkbook As Variant) As Long

Sub Example_HypDeleteMetaData()
	Dim Ret As Long
	Dim Workbook As Workbook
	Dim Sheet As Worksheet

	Set Workbook = ActiveWorkbook
	Set Sheet = ActiveSheet

	'Ret = HypDeleteMetaData(oSheet, False, True)      'Mode 1
	Ret = HypDeleteMetaData(oWorkbook, True, False)  'Mode 2
	'Ret = HypDeleteMetaData(oWorkbook, True, True)   'Mode 3

	MsgBox	 (Ret)

End Sub