Visual Basic - Ajustar Texto en una Celda de Excel usando Basic

hola a todos, tengo una aplicación de VB 6.0 que toma los datos de una bd en SQL, genera una matriz y la exporta a Excel, el problema es que los títulos de las columnas de la matriz son demasiado largos y quiero que estos queden en una columna no importanto cunanto crezca la fila es decir ajustar el texto en una sola celda como se haría manualmente en Excel, Formato de Celdas, Alineación, Ajustar Texto, pués yo quiero que sea automático al momento de generar la hoja de excel.

Atentamente,

Salvador Diaz

ya probaste con la propiedad Columns.Autofit del objeto WorkSheets?

Hola, para ajustar el texto y tenerlo centrado puedes utilizar el siguiente código:

Dim Excelq As Object
Dim Libro As Object
Dim Hoja As Object

Set Excelq = CreateObject("Excel.application")
Set Libro = Excelq.Workbooks.Open(fichExcel)
Set Hoja = Libro.Worksheets(1)

with Hoja
.Cells(1, 1).HorizontalAlignment = xlCenter
.Cells(1, 1).VerticalAlignment = xlCenter
.Cells(1, 1).WrapText = True
end with

Espero que te sirva, a mi me funciona. Saludos.

si, muchas gracias Beatriz, esto me funciono.

Buenas, como puedo hacer mediante visual 6.0, hacer que me escriba un texto de manera vertical, o lo que hace el excel en la opciones de formato de celda, Alineación, orientacion del texto 90 grados. Espero me puedan ayudar muchas gracias. Quiero algo asi:


M

I

G

U

E

L

Gracias Beatriz tu respuesta me ayudo mucho