Variant vFont;
vFont = vRange.OlePropertyGet("Font");

vFont.OlePropertySet("Bold", true);

vFont.OlePropertySet("Italic", true);

vFont.OlePropertySet("Underline", true);

vFont.OlePropertySet("Size", true);

Variant vSize;
vSize = vFont.OlePropertyGet("Size");

vFont.OlePropertySet("Name", vName);
// vName contient une chaîne de caractères définissant la nouvelle police, par exemple vName="Arial"

vFont.OlePropertySet("Color", vValue); // vValue est un Variant définissant la couleur

vRange.OlePropertySet("HorizontalAlignment", vValue);

vRange.OlePropertySet("VerticalAlignment", vValue);

xlCenter = -4108
xlJustify = -4130
xlLeft = -4131
xlRight = -4152

vCel.OlePropertySet("NumberFormat", vValue);

ShowMessage(vCell.OlePropertyGet("NumberFormat"));

vRange.OleProcedure("AddComment", vText); // vText Variant initialisé à la valeur du commentaire

vRange.OlePropertyGet("Comment").OleProcedure("Delete");