property FormatAppearances.Count as Long
Returns the number of objects in a collection.

TypeDescription
Long A Long expression that indicates the number of FormatAppearance objects in the FormatAppearances collection.
The Count property gets the number of FormatAppearance objects in the FormatAppearances collection.  The Clear method removes all elements in the FormatAppearances collection. The Item property accesses a FormatAppearance object based on its key. Use the Add method to add a new FormatAppearance object. You can use the for each statement to enumerate all objects in the FormatAppearances collection.

The following samples show how to change the "bold" caption being displayed in the control's context menu.

VBA (MS Access, Excell...)

With Pivot1
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FormatAppearances.Item("bold").Name = "Ingrosat"
End With

VB6

With Pivot1
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FormatAppearances.Item("bold").Name = "Ingrosat"
End With

VB.NET

With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FormatAppearances.Item("bold").Name = "Ingrosat"
End With

VB.NET for /COM

With AxPivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FormatAppearances.Item("bold").Name = "Ingrosat"
End With

C++

/*
	Copy and paste the following directives to your header file as
	it defines the namespace 'EXPIVOTLib' for the library: 'ExPivot 1.0 Control Library'

	#import <ExPivot.dll>
	using namespace EXPIVOTLib;
*/
EXPIVOTLib::IPivotPtr spPivot1 = GetDlgItem(IDC_PIVOT1)->GetControlUnknown();
spPivot1->Import("C:\\Program Files\\Exontrol\\ExPivot\\Sample\\data.txt",vtMissing);
spPivot1->GetFormatAppearances()->GetItem("bold")->PutName(L"Ingrosat");

C++ Builder

Pivot1->Import(TVariant("C:\\Program Files\\Exontrol\\ExPivot\\Sample\\data.txt"),TNoParam());
Pivot1->FormatAppearances->get_Item(TVariant("bold"))->Name = L"Ingrosat";

C#

expivot1.Import("C:\\Program Files\\Exontrol\\ExPivot\\Sample\\data.txt",null);
expivot1.FormatAppearances["bold"].Name = "Ingrosat";

JavaScript

<OBJECT classid="clsid:5C9DF3D3-81B1-42C4-BED6-658F17748686" id="Pivot1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
	Pivot1.Import("C:\\Program Files\\Exontrol\\ExPivot\\Sample\\data.txt",null);
	Pivot1.FormatAppearances.Item("bold").Name = "Ingrosat";
</SCRIPT>

C# for /COM

axPivot1.Import("C:\\Program Files\\Exontrol\\ExPivot\\Sample\\data.txt",null);
axPivot1.FormatAppearances["bold"].Name = "Ingrosat";

X++ (Dynamics Ax 2009)

public void init()
{
	COM com_FormatAppearance;
	anytype var_FormatAppearance;
	;

	super();

	expivot1.Import("C:\\Program Files\\Exontrol\\ExPivot\\Sample\\data.txt");
	var_FormatAppearance = COM::createFromObject(expivot1.FormatAppearances()).Item("bold"); com_FormatAppearance = var_FormatAppearance;
	com_FormatAppearance.Name("Ingrosat");
}

Delphi 8 (.NET only)

with AxPivot1 do
begin
	Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
	FormatAppearances.Item['bold'].Name := 'Ingrosat';
end

Delphi (standard)

with Pivot1 do
begin
	Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Null);
	FormatAppearances.Item['bold'].Name := 'Ingrosat';
end

VFP

with thisform.Pivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FormatAppearances.Item("bold").Name = "Ingrosat"
endwith

dBASE Plus

local oPivot,var_FormatAppearance

oPivot = form.Activex1.nativeObject
oPivot.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
// oPivot.FormatAppearances.Item("bold").Name = "Ingrosat"
var_FormatAppearance = oPivot.FormatAppearances.Item("bold")
with (oPivot)
	TemplateDef = [Dim var_FormatAppearance]
	TemplateDef = var_FormatAppearance
	Template = [var_FormatAppearance.Name = "Ingrosat"]
endwith

XBasic (Alpha Five)

Dim oPivot as P
Dim var_FormatAppearance as P

oPivot = topparent:CONTROL_ACTIVEX1.activex
oPivot.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
' oPivot.FormatAppearances.Item("bold").Name = "Ingrosat"
var_FormatAppearance = oPivot.FormatAppearances.Item("bold")
oPivot.TemplateDef = "Dim var_FormatAppearance"
oPivot.TemplateDef = var_FormatAppearance
oPivot.Template = "var_FormatAppearance.Name = \"Ingrosat\""


Visual Objects


oDCOCX_Exontrol1:Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt",nil)
oDCOCX_Exontrol1:FormatAppearances:[Item,"bold"]:Name := "Ingrosat"

PowerBuilder

OleObject oPivot

oPivot = ole_1.Object
oPivot.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
oPivot.FormatAppearances.Item("bold").Name = "Ingrosat"