Adiciona uma caixa de texto de desenho XLS clássica através de âncoras de folha de cálculo com base em 1 e devolve o objeto
TXLSTextBox criado
Sintaxe
function AddTextBox(AText: WideString; ARow1, ACol1, ARow2, ACol2: Integer): TXLSTextBox;
function AddTextBox(AText: WideString; ARange: WideString): TXLSTextBox;
Parâmetros
| AText |
Texto inicial armazenado na caixa de texto |
| ARow1, ACol1 |
Número de linha e coluna da âncora do canto superior esquerdo com base em 1 |
| ARow2, ACol2 |
Número de linha e coluna da âncora do canto inferior direito com base em 1 |
| ARange |
Intervalo de folha de cálculo estilo A1, por exemplo C4:F8 |
Observações
AddTextBox é um método de atalho ao nível da folha de cálculo, utilizado para criar uma forma de desenho independente através da coleção
Shapes da folha de cálculo
O método não cria comentários de célula, nem anexa texto ao registo de nota da célula
Exemplo
var
TextBox: TXLSTextBox;
begin
TextBox := Workbook.Sheets[1].AddTextBox(
'Standalone note',
2, 3,
5, 7);
TextBox.Fill.ForeColor.RGB := $00FFFF;
TextBox := Workbook.Sheets[1].AddTextBox(
'Range note',
'C4:F8');
end;
Ver também