Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > C++ Builder
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 04-09-2017
pollo_c pollo_c is offline
Miembro
 
Registrado: oct 2006
Posts: 55
Poder: 18
pollo_c Va por buen camino
Ajustar ancho y alto una celda de excel

Estimados:
Solicito su apreciable ayuda para ampliar el alto y ancho de una celda de excel, tengo el siguiente codigo solo me falta ajustar los tamaños de las celdas.

Código Delphi [-]
  Variant Excel,Libro,Hoja,Celda;
  int hoja=1,fil=1;
  char f[256];
  Excel=CreateOleObject("Excel.Application");
  Excel.OlePropertySet("Visible", true);
  Libro=Excel.OlePropertyGet("Workbooks");
  Libro.OleProcedure("Add");
  Hoja=Libro.OlePropertyGet("Item",1);
  Libro=Hoja.OlePropertyGet("Worksheets");

  Libro.OlePropertyGet("Item",1).OlePropertySet("Name","COMPUMUNDO INOVATEC");
///  Libro.OlePropertyGet("Item",2).OlePropertySet("Name","The yellow book-keeping ");

  Hoja=Libro.OlePropertyGet("Item",hoja);


  DataModule1->QAuxPueblos->Close();
  DataModule1->QAuxPueblos->SQL->Clear();
  DataModule1->QAuxPueblos->SQL->Add("SELECT * FROM regiones");
  DataModule1->QAuxPueblos->Open();
  DataModule1->QAuxPueblos->First();
  while (!DataModule1->QAuxPueblos->Eof)
  {

    DataModule1->CAuxRep->Close();
    DataModule1->CAuxRep->SQL->Clear();
    DataModule1->CAuxRep->SQL->Add("SELECT 
    id_rep,fecha_rep,nombre_rep,falla_rep,numero_tel,id_pue,direc_rep,reg.dscr_r,id_usu,edo_rep,id_tec,s  olucion FROM REPORTES rep,  
    regiones reg where rep.inc_r=reg.inc_r and edo_rep=0 and rep.inc_r= "+DataModule1->QAuxPueblos->FieldByName("inc_r")->Text);
    DataModule1->CAuxRep->Open();
    DataModule1->CAuxRep->First();

    strcpy(f, DataModule1->QAuxPueblos->FieldByName("dscr_r")->Text.c_str());
    Hoja.OlePropertyGet("Cells").OlePropertyGet("Item",fil,1).OlePropertySet("Value",f);
    fil++;

    while (!DataModule1->CAuxRep->Eof)
   {
      strcpy(f, DataModule1->CAuxRep->FieldByName("id_rep")->Text.c_str());
      Hoja.OlePropertyGet("Cells").OlePropertyGet("Item",fil,1).OlePropertySet("Value",f);
      //Hoja.OlePropertyGet("Cells").OlePropertyGet("AutoFit",fil,1);

      strcpy(f, DataModule1->CAuxRep->FieldByName("fecha_rep")->Text.c_str());
      Hoja.OlePropertyGet("Cells").OlePropertyGet("Item",fil,2).OlePropertySet("Value",f);
      strcpy(f, DataModule1->CAuxRep->FieldByName("nombre_rep")->Text.c_str());
      Hoja.OlePropertyGet("Cells").OlePropertyGet("Item",fil,3).OlePropertySet("Value",f);
      strcpy(f, DataModule1->CAuxRep->FieldByName("falla_rep")->Text.c_str());
      Hoja.OlePropertyGet("Cells").OlePropertyGet("Item",fil,4).OlePropertySet("Value",f);
      strcpy(f, DataModule1->CAuxRep->FieldByName("numero_tel")->Text.c_str());
      Hoja.OlePropertyGet("Cells").OlePropertyGet("Item",fil, 5).OlePropertySet("Value",f);
      strcpy(f, DataModule1->CAuxRep->FieldByName("id_pue")->Text.c_str());
      Hoja.OlePropertyGet("Cells").OlePropertyGet("Item",fil,6).OlePropertySet("Value",f);
      strcpy(f, DataModule1->CAuxRep->FieldByName("direc_rep")->Text.c_str());
      Hoja.OlePropertyGet("Cells").OlePropertyGet("Item",fil,7).OlePropertySet("Value",f);
      fil++;
      DataModule1->CAuxRep->Next();
    }
   DataModule1->QAuxPueblos->Next();
   fil+=6;
  } // fin del ciclo para mover hojas

  Excel.OlePropertySet("DisplayAlerts",false); //suppress the warning dialog on closing the server
  Excel.OlePropertyGet("Workbooks").OlePropertyGet("Item",1).OleProcedure("SaveAs","test.xls");
  //Excel.OleProcedure("Quit"); Cierra el libro abierto
  Excel=Unassigned;



Saludos.

Última edición por Casimiro Notevi fecha: 04-09-2017 a las 18:31:58.
Responder Con Cita
  #2  
Antiguo 04-09-2017
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Recuerda poner los tags al código fuente, ejemplo:



Gracias
Responder Con Cita
  #3  
Antiguo 04-09-2017
pollo_c pollo_c is offline
Miembro
 
Registrado: oct 2006
Posts: 55
Poder: 18
pollo_c Va por buen camino
Etiqueta para codigo

Estimado Casimiro:

Una disculpa por la etiqueta que falto, busque como modificar mi pregunta para activar la etiqueta, pero no encuentro la opción, me recomiendas cerrar el tema y volverlo a postear? o que acción me recomiendas.

Saludos
Responder Con Cita
  #4  
Antiguo 04-09-2017
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.732
Poder: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
Supongo que deberías probar con la propiedad "Width" o "ColumnWidth".
En algún lugar leí que si utilizas ColumnWidth, todas las columnas serán del mismo tamaño (dentro del rango de celdas)

Código:
AnchoDeColumna = 20.00;
Variant Range = WorkSheet.OlePropertyGet("Cells", iRow+1, iCol+1);
Range.OlePropertySet("ColumnWidth", AnchoDeColumna);
Edito
Acabo de encontrar estos links:

http://www.clubdelphi.com/foros/arch...p?t-10866.html
http://programacion.net/foros/c-c-pl...desde_c_261186

Última edición por duilioisola fecha: 04-09-2017 a las 16:36:21.
Responder Con Cita
  #5  
Antiguo 04-09-2017
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Cita:
Empezado por pollo_c Ver Mensaje
Estimado Casimiro:
Una disculpa por la etiqueta que falto, busque como modificar mi pregunta para activar la etiqueta, pero no encuentro la opción, me recomiendas cerrar el tema y volverlo a postear? o que acción me recomiendas.
Saludos
Solamente tenlo en cuenta para futuras ocasiones
Responder Con Cita
  #6  
Antiguo 05-09-2017
pollo_c pollo_c is offline
Miembro
 
Registrado: oct 2006
Posts: 55
Poder: 18
pollo_c Va por buen camino
Solucionado

Estimado duilioisola:

Muchas gracias por tu tiempo, la información me ayudo mucho, ya acomodo las filas al tamaño de mi necesidad.

Saludos Cordiales

Código Delphi [-]
 Hoja.OlePropertyGet("Columns").OlePropertyGet("Item",(Variant)1).OlePropertySet("ColumnWidth",(Varia  nt)10);
                Hoja.OlePropertyGet("Columns").OlePropertyGet("Item",(Variant)2).OlePropertySet("ColumnWidth",(Varia  nt)20);
                Hoja.OlePropertyGet("Columns").OlePropertyGet("Item",(Variant)3).OlePropertySet("ColumnWidth",(Varia  nt)25);
                Hoja.OlePropertyGet("Columns").OlePropertyGet("Item",(Variant)4).OlePropertySet("ColumnWidth",(Varia  nt)40);
                Hoja.OlePropertyGet("Columns").OlePropertyGet("Item",(Variant)5).OlePropertySet("ColumnWidth",(Varia  nt)20);
                Hoja.OlePropertyGet("Columns").OlePropertyGet("Item",(Variant)6).OlePropertySet("ColumnWidth",(Varia  nt)15);
                Hoja.OlePropertyGet("Columns").OlePropertyGet("Item",(Variant)7).OlePropertySet("ColumnWidth",(Varia  nt)35);
    
                Hoja.OlePropertyGet("Rows").OlePropertyGet("Item",(Variant)fil).OlePropertySet("RowHeight",(Variant)  45);

Última edición por Casimiro Notevi fecha: 05-09-2017 a las 10:51:58.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
”ajustar texto” a las celda de excel una vez exportado ingabraham Varios 2 15-12-2010 19:16:16
Ajustar verticalmente el QRShape al Alto del QRBand yusnerqui Impresión 1 06-10-2010 22:27:45
Como ajustar el alto de un IWRegion fcios Internet 1 29-01-2010 23:11:00
ancho y alto de una fuente jceluce OOP 0 12-01-2009 12:23:21
Conocer el ancho y el alto de la taskbar. Negriz C++ Builder 2 21-12-2008 18:44:58


La franja horaria es GMT +2. Ahora son las 19:06:17.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi