Insert Graphic onto Worksheet

[Salza]

Hi all,

I am using Excel 2007.

I have 20 worksheets in a workbook and I intend to paste a logo onto
all worksheets. Is there a way to just insert once and the logo will
appear in all 20 worksheet.

Thank you.

 

[Dave Peterson]

You could do something like this:

Insert the logo so that it covers A1:B3 (say).
Then select A1:B3 (the cells behind the picture)

Go to the other sheet (one at a time).
Shift Edit|Paste picture link (in xl2003 menus)

In xl2007, I think you'll need to add the Camera tool to the QAT to do the copy
pasting.

If you have trouble doing this in xl2007, maybe someone running xl2007 will
chime in with the instructions.

 

[Salza]

Hi all,

I am using Excel 2007.

I have 20 worksheets in a workbook and I intend to paste a logo onto
all worksheets. Is there a way to just insert once and the logo will
appear in all 20 worksheet.

Thank you.

Thank you so much. I am still working on it.

 

[JVBeaupre]

Try this:

Assume that the picture is on "Sheet1" and is named "Picture 1" and
in in the right place.
Then just copy and paste within a worksheet loop.

Sub Macro1()
'assumes the picture is on a sheet named "Sheet1" and the picture is
named "Picture 1"
tp = Sheets("Sheet1").Shapes("Picture 1").Top
lf = Sheets("Sheet1").Shapes("Picture 1").Left
For Each sh In Sheets
If sh.Name <> "Sheet1" Then
Sheets("Sheet1").Shapes("Picture 1").Select
Selection.Copy
sh.Activate
ActiveSheet.Paste
nm = Selection.Name
sh.Shapes(nm).Left = lf
sh.Shapes(nm).Top = tp
End If
Next sh
End Sub

Jim