Pié de Página

Estoy seguro que esta opcion solo esta disponible con el Office 2003


"Cristo" wrote in message
news:2eb8201c46d8c$f56a2600$
Hola:

Queremos introducir un gráfico (imágen, foto) en el pié
de página de un libro de Excel de forma que dicho pié
aparezca en todas las hojas a la hora de imprimir.

Por ahora solo hemos conseguido poner texto pero no
sabemos como poner una imágen también.

Estamos usando Office 2000

Gracias,
CRISTO

Que tal.
Grabé la macro en Office 2003, ejecútala en tu 2000; no lo
he probado, pero intenta correrla en tu Office. Solo
cambia la ruta de la imágen.

Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 20/07/2004 por Sergio A Campos H
'

'
ActiveSheet.PageSetup.LeftFooterPicture.Filename = _
"C:\Documents and Settings\AdministradorXp\Mis
documentos\Mis imágenes\cruz9.jpg"
ActiveSheet.PageSetup.RightFooterPicture.Filename = _
"C:\Documents and Settings\AdministradorXp\Mis
documentos\Mis imágenes\cruz9.jpg"
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = "&G"
.LeftMargin = Application.InchesToPoints
(0.787401575)
.RightMargin = Application.InchesToPoints
(0.787401575)
.TopMargin = Application.InchesToPoints
(0.984251969)
.BottomMargin = Application.InchesToPoints
(0.984251969)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 300
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
End Sub


A sus órdenes.

Tec. Inf. Sergio A Campos H

Hola:

Queremos introducir un gráfico (imágen, foto) en el pié
de página de un libro de Excel de forma que dicho pié
aparezca en todas las hojas a la hora de imprimir.

Por ahora solo hemos conseguido poner texto pero no
sabemos como poner una imágen también.

Estamos usando Office 2000

Gracias,
CRISTO
.