TXLSXImages is the worksheet image collection exposed by TXLSXWorksheet.Images and each TXLSXImage carries image bytes, format and drawing anchor geometry
Declarations
type
TXLSXImageFillMode = (xlsxImageFillStretch, xlsxImageFillTile);
TXLSXImage = class
procedure Assign(Source: TXLSXImage);
procedure Scale(APercent: Double; AKeepAspect: Boolean = True);
procedure ClearPreservedXml;
property Row, Col: Integer;
property WidthEMU, HeightEMU: Integer;
property WidthInch, HeightInch: Double;
property WidthCM, HeightCM: Double;
property WidthPt, HeightPt: Double;
property Format: TXLSXImageFormat;
property Data: AnsiString;
property AnchorType: TXLSXAnchorEditAs;
property CropLeft, CropTop, CropRight, CropBottom: Double;
property Transparency, Brightness, Contrast: Double;
property Rotation: Double;
property AltText: WideString;
property AltTextTitle: WideString;
property FillMode: TXLSXImageFillMode;
property HasPreservedXml: Boolean;
end;
TXLSXImages = class
function Add: TXLSXImage; overload;
function Add(Source: TXLSXImage): Integer; overload;
function FindAt(ARow, ACol: Integer): TXLSXImage;
function DeleteAt(ARow, ACol: Integer): Boolean;
function DeleteInRange(ARow1, ACol1, ARow2, ACol2: Integer): Integer;
property Items[Index: Integer]: TXLSXImage; default;
end;Key members
| Row and Col | One-based top-left anchor cell |
| WidthEMU and HeightEMU | Native drawing dimensions in English Metric Units |
| WidthInch, WidthCM and WidthPt | Convenience geometry views that update the underlying EMU dimensions |
| AnchorType | Selects move and size with cells, move only, or absolute drawing behaviour |
| CropLeft, CropTop, CropRight and CropBottom | Trouve l'image ancrée à une coordonnée de cellule en base 1 |
| Transparency | Transparence uniforme de l'image de 0 à 100 pour cent |
| Brightness and Contrast | Réglages de luminosité de -100 à 100 pour cent |
| Rotation | Rotation de la forme dans le sens horaire, en degrés, bornée de -360 à 360 |
| AltText | Texte alternatif d'accessibilité pour l'image, consommé par les lecteurs d'écran et les outils d'assistance |
| AltTextTitle | Accessible title for the picture |
| FillMode | Étire l'image une fois ou la répète en mosaïque sur la forme |
| HasPreservedXml and ClearPreservedXml | Inspecte ou rejette le DrawingML importé, sans risque pour l'édition, d'une seule image |
| FindAt | Trouve l'image ancrée à une coordonnée de cellule en base 1 |
Exemple
var Image: TXLSXImage;
begin
Image := Sheet.Images.Add;
Image.Row := 2;
Image.Col := 4;
Image.Data := PngBytes;
Image.Format := xlsxImagePng;
Image.WidthCM := 6;
Image.AnchorType := xaOneCell;
Image.CropLeft := 12.5;
Image.Transparency := 20;
Image.Brightness := 10;
Image.Contrast := -5;
Image.FillMode := xlsxImageFillStretch;
Image.Rotation := 15;
end;
Voir aussi