TXLSFormatSnapshot を IXLSRange
のすべてのセルに適用し、CaptureFormat によって記録された完全な書式を復元します
procedure ApplyFormat(AFormat: TXLSFormatSnapshot);
AFormat は nil であってはなりません。
var Snapshot: TXLSFormatSnapshot; begin Snapshot:= Workbook.Sheets[1].Range['A1', 'D1'].CaptureFormat; Workbook.Sheets[2].Range['A1', 'D1'].ApplyFormat(Snapshot); Snapshot.Free; end;