![]() |
![]() |
Products | Download | Order | Forum | Contact us |
With Workbook.Sheets[1] do begin
With Range['B2', 'B2'].AddComment do begin
Shape.Fill.ForeColor.SchemeColor := 31;
Text := 'SchemeColor #31 is equal RGB ' + inttohex(Shape.Fill.ForeColor.RGB, 6);
end;
end;
| Copyright © NikaSoft 2004-2012 |