Ahora estoy con la idea de poner dropdown list en excel pero a la hora de seleccionar sus valores me sale un error , lo que pasa es que no puedo acceder al dropdown list :S he visto los macros en excel y pone las siguentes propiedades
ActiveSheet.Shapes("Drop Down 2").Select
With Selection
.ListFillRange = "$B$4:$B$6"
.LinkedCell = "$C$4"
.DropDownLines = 8
.Display3DShading = False
End With
a lo que yo creo que debe de ser algo asi en delphi
Código Delphi
[-]
procedure TForm5.Button2Click(Sender: TObject);
var sheets,wb,xlapplication,ws:variant;
listaencontrados:tstringlist;
x,y:integer;
z:extended;
begin
XLApplication:= CreateOleObject('Excel.Application');
XLApplication.WorkBooks.Open(FileName :='C:\'+'avalanch-vp1277-665-08'+'.xlsx', Password :='57-+@%*+090', ReadOnly := TRUE);
XLApplication.visible:=true;
XLApplication.ActiveSheet.Unprotect('@%(05790¡$-');
WB := XLApplication.ActiveWorkbook;
sheets:=XLApplication.workbooks[1].Worksheets['hoja1'];
sheets := XLApplication.Activesheet;
y:=100;
XLApplication.Range['a15','a15'].Value:='jk';
XLApplication.Range['a16','a16'].Value:='jkff';
XLApplication.Range['a17','a17'].Value:='jjhuk';
for x:=0 to 10 do
begin
sheets.DropDowns.Add(483, 221.25+(x*15), 93, 15.75).Select;
seleccion:= sheets.DropDowns.Add(483, 221.25+(x*15), 93, 15.75).Select; seleccion.ListFillRange['"$B$4:$B$6"'].select; seleccion.ListFillRange.LinkedCell:= '"$C$4"';
end;
XLApplication.Activesheet.Shapes('Drop Down 1').Select;
Gracias por su tiempo prometo estar pendiente de las publicaciones buen dia amigos!