ENCABEZADOS EN EXCEL POR MEDIO DE MACROS

De la forma mas facil, graba una macro

Herramientas / Macro / Grabar macro

Cuando termines, vas a Herramientas / Macro / Editor de VBA y haces
doble clic en el modulo que se acaba de crear.

Estimados amigos del foro... alguien podría decirme los códigos de macro para
configurar los encabezados de excel, lo mismo para las propiedades de EXCEL
(asunto, autor...etc) via Macro?

Hoal Augusto,

Respecto a "configurar los encabezados de excel" faltaria aclarar que son estos "encabezados" y que significa "configurar" en este
caso concreto.

Para devolver, modificar (no todas) y eliminar (solo personalizadas) las propiedades del libro tienes que usar las propiedades
BuiltInDocumentProperties y CustomDocumentProperties del objeto Workbook. P.ej.:

Sub test()
Dim bidp As DocumentProperty, i As Long, tipo As String
On Error Resume Next
For Each bidp In ThisWorkbook.BuiltinDocumentProperties
i = i + 1
With Worksheets(1)
.Cells(i, 1) = bidp.Name
Select Case bidp.Type
Case 1: tipo = "Numerico"
Case 2: tipo = "Buleano"
Case 3: tipo = "Fecha"
Case 4: tipo = "Texto"
End Select
.Cells(i, 2) = tipo
.Cells(i, 3) = bidp.Value
.Cells(i, 4) = "Integradas"
End With
Next bidp
For Each bidp In ThisWorkbook.CustomDocumentProperties
i = i + 1
With Worksheets(1)
.Cells(i, 1) = bidp.Name
Select Case bidp.Type
Case 1: tipo = "Numerico"
Case 2: tipo = "Buleano"
Case 3: tipo = "Fecha"
Case 4: tipo = "Texto"
End Select
.Cells(i, 2) = tipo
.Cells(i, 3) = bidp.Value
.Cells(i, 4) = "Personalizadas"
End With
Next bidp
End Sub

Saludos,
KL


"Augusto Unten" wrote in message news:

Estimados amigos del foro... alguien podría decirme los códigos de macro para configurar los encabezados de excel, lo mismo para
las propiedades de EXCEL (asunto, autor...etc) via Macro?

ARENART S.R.L.
Augusto Unten T.
Gerencia de Operaciones
Bartolomé Herrera 451 - Lima 14 - PERU
Teléfono: (511)2657878
Nextel: (511)819*6022
E-mail: /
website: http://www.arenart.com

Hola KL por "Configurar" me refiero a la opcion <Archivo> <Configurar
pagina> pestana de encabezados y pie de pagina. Se que hay unos codigos que
te permiten poner contenidos y/o datos a esas opciones... tanto a la seccion
izquierda, centro y derecha. no se si me dejo entender.


ARENART S.R.L.
Augusto Unten T.
Gerencia de Operaciones
Bartolome Herrera 451 - Lima 14 - PERU
Telefono: (511)2657878
Nextel: (511)819*6022
E-mail: /
website: http://www.arenart.com


"KL" escribio en el mensaje
news:

Hoal Augusto,

Respecto a "configurar los encabezados de excel" faltaria aclarar que son
estos "encabezados" y que significa "configurar" en este caso concreto.

Para devolver, modificar (no todas) y eliminar (solo personalizadas) las
propiedades del libro tienes que usar las propiedades
BuiltInDocumentProperties y CustomDocumentProperties del objeto Workbook.
P.ej.:

Sub test()
Dim bidp As DocumentProperty, i As Long, tipo As String
On Error Resume Next
For Each bidp In ThisWorkbook.BuiltinDocumentProperties
i = i + 1
With Worksheets(1)
.Cells(i, 1) = bidp.Name
Select Case bidp.Type
Case 1: tipo = "Numerico"
Case 2: tipo = "Buleano"
Case 3: tipo = "Fecha"
Case 4: tipo = "Texto"
End Select
.Cells(i, 2) = tipo
.Cells(i, 3) = bidp.Value
.Cells(i, 4) = "Integradas"
End With
Next bidp
For Each bidp In ThisWorkbook.CustomDocumentProperties
i = i + 1
With Worksheets(1)
.Cells(i, 1) = bidp.Name
Select Case bidp.Type
Case 1: tipo = "Numerico"
Case 2: tipo = "Buleano"
Case 3: tipo = "Fecha"
Case 4: tipo = "Texto"
End Select
.Cells(i, 2) = tipo
.Cells(i, 3) = bidp.Value
.Cells(i, 4) = "Personalizadas"
End With
Next bidp
End Sub

Saludos,
KL


"Augusto Unten" wrote in message
news:

Estimados amigos del foro... alguien podría decirme los códigos de macro
para configurar los encabezados de excel, lo mismo para las propiedades
de EXCEL (asunto, autor...etc) via Macro?

ARENART S.R.L.
Augusto Unten T.
Gerencia de Operaciones
Bartolomé Herrera 451 - Lima 14 - PERU
Teléfono: (511)2657878
Nextel: (511)819*6022
E-mail: /
website: http://www.arenart.com