Marty tiene una serie de libros de trabajo, algunos con hasta 50 hojas de trabajo. Necesita pegar un gráfico (un logotipo de la empresa) en el mismo lugar de cada hoja de trabajo. Intentó hacer esto seleccionando todas las hojas de trabajo y luego pegando, pero eso no pareció funcionar en varias hojas de trabajo como lo hace la edición regular.

Marty tiene razón; intentar pegar un gráfico cuando tiene varias hojas de trabajo seleccionadas no funciona. Cuando lo intenta, Excel le dice que no puede pegar, pero si luego selecciona una sola hoja de trabajo, puede pegar bastante bien.

En su lugar, debe usar una macro para pegar. Suponiendo que el gráfico ya se haya copiado en el Portapapeles, puede ejecutar una macro como la siguiente:

Sub InsertLogo1()

Dim shtSheet As Worksheet

Application.ScreenUpdating = False     For Each shtSheet In Worksheets         With shtSheet             .Activate             .Range("A1").Select             .Paste         End With     Next     Set shtSheet = Nothing     Application.ScreenUpdating = True End Sub

La macro recorre cada hoja de trabajo del libro y pega el gráfico en la celda A1. Si desea utilizar una celda diferente, todo lo que necesita hacer es modificar la línea que selecciona la celda.

Si no desea copiar el gráfico al Portapapeles antes de tiempo, puede usar una macro como la siguiente para insertar el gráfico directamente desde un archivo de imagen:

Sub InsertLogo2()

Dim strPath As String     Dim shtSheet As Worksheet

strPath = "C:\GraphicFolder\PictureName.bmp"



For Each shtSheet In Worksheets         shtSheet.Activate         Range("A1").Select         ActiveSheet.Pictures.Insert (strPath)

Next shtSheet     Set shtSheet = Nothing End Sub

Por supuesto, puede modificar la ruta al archivo gráfico y la celda en la que se pega el archivo en las hojas de trabajo.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (3222) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posteriores) aquí:

link: / excelribbon-Pasting_a_Graphic_to_Multiple_Worksheets [Pegar un gráfico en varias hojas de trabajo].