Marca de agua centrada en hoja

[Benito Bartolomé]

Buenas tardes a todos;

-Tengo un procedimiento para crear una marca de agua en el encabezado.

-¿Sería posible que dicho encabezado esté centrado en la hoja?

Gracias de antemano y saludos a todos.

 

MAgua.zip

[JSDJSD]

Cambia tu código por este y comenta.

Sub marcaAgua(): On Error Resume Next

With ActiveSheet.PageSetup.CenterHeaderPicture
    .Filename = "C:\Users\Via Norte\Desktop\MAgua\1.jpg"
    .Height = 150
    .Width = 100
End With

ActiveSheet.PageSetup.CenterHeader = "" & Chr(10) & _
                                     "" & Chr(10) & _
                                     "" & Chr(10) & _
                                     "" & Chr(10) & _
                                     "" & Chr(10) & _
                                     "" & Chr(10) & _
                                     "" & Chr(10) & _
                                     "" & Chr(10) & _
                                     "" & Chr(10) & _
                                     "" & Chr(10) & _
                                     "" & Chr(10) & _
                                     "" & Chr(10) & _
                                     "" & Chr(10) & _
                                     "" & Chr(10) & _
                                     "" & Chr(10) & _
                                     "" & Chr(10) & _
                                     "" & Chr(10) & _
                                     "" & Chr(10) & "&G"
End Sub

 

[Benito Bartolomé]

Muchas gracias  JsdJsd por responder, le agradezco el detalle. 

Hoy no puedo verlo porqué la macro la tengo en el trabajo. 

Por lo que puedo comprender debe funcionar no obstante mañana se lo confirmo. 

Muchísimas gracias. ?

[JSDJSD]

[Benito Bartolomé]

Hola de nuevo JsdJsd;

La primera parte perfecta era lo que pretendía hacer.

He visto el video con la segunda pregunta y está genial. 

Lo que no veo es el código. 

Si no es mucha molestia, me podrías orientar como lo haces.

Saludos y doblemente agradecido. 

Buen día. 

 

 

[Benito Bartolomé]

JsdJsd, ya resolví. 

Te dejo enlace de un video a ver que te parece:

https://youtu.be/f7WnQGJV7vA

 

Saludos.

[JSDJSD]

El enlace que has subido esta como privado

 

[Benito Bartolomé]

Perdona ya me había dado de cuenta.

Prueba con este.

Saludos

Video:

 

[JSDJSD]

Perfecto, me alegro que hallas alcanzado tu objetivo