Saludos Profesor Sergio, de ante mano gracias por responder, realice lo que me sugirió coloque el código donde me indicó, sin embargo me sigue arrojando el mismo error.
' Restaurar formato de fuente
With wsHistorico.Rows("2:2").Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
' Incrementar automáticamente el número de recibo
wsRecibo.Range("J2").Value = wsRecibo.Range("J2").Value + 1
'Corrección de Error en impresión
Application.Wait (Now + TimeValue("0:00:01"))
' Imprimir
wsRecibo.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Por
dorgelis, · publicado
Hola
Querria crear una web con archivos de excel hechos por mi totalmente gratis para que la gente se las pueda descargar .
El problema es que para financiar el proyecto quisiera incluir publicidad dentro de los archivos excel .
mi pregunta es si se puede de alguna forma con macros o como sea incluir en el excel publicidad de Adsense o de otra empresa de publicidad similar
El codigo que te dan en Adsense es HTML para que lo pongas en la web y es del estilo( este codigo en concreto no funciona):
<script type="text/javascript"><!--
google_ad_client = "ca-pub-585185562854944";
/* Enlaces */
google_ad_slot = "5843165204";
google_ad_width = 728;
google_ad_height = 15;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
Muchas gracias por adelantado