Share via

Copying pictures from one sheet to another.

Anonymous
2015-01-10T23:29:50+00:00

I have a workbook with 22 sheets. There is a picture on each sheet (they are all the same) and I would like to be able to change that picture without having to go into each sheet seperately. Is there a way to copy a master picture onto other sheets the same way you can copy a cell from one sheet to the next?

Microsoft 365 and Office | Excel | For home | Windows

Locked Question. This question was migrated from the Microsoft Support Community. You can vote on whether it's helpful, but you can't add comments or replies or follow the question.

0 comments

Answer accepted by question author

Anonymous
2015-01-11T17:34:44+00:00

JackMcComb,

This sounds like a recurring event.  So if you would prefer a non macro solution and don't mind spending a little time prepping your workbook you could do this.

Have a master sheet where you will have your pictures.  Reserve say A1:E15 to be the current picture.  (Adjust so all your pictures fit).   Now select A1:E15 and do a copy

go to each sheet and in the upper left corner of where the picture will be displayed, do a past picture as link. 

Once you have done that on each sheet, then whatever picture you place in A1:E15 on the master picture sheet will be displayed on each of the 22 sheets.

(note, on the master picture sheet, you might want to hide gridlines so they don't appear behind your picture if it is not an exact match to area.

--

Regards,

Tom Ogilvy

Was this answer helpful?

4 people found this answer helpful.
0 comments

Answer accepted by question author

Anonymous
2015-01-11T16:39:32+00:00

Thanks Gord... you are most welcome.

Nice to be noticed by you. I respect you and learn from you.

Was this answer helpful?

0 comments

5 additional answers

Sort by: Most helpful
Most helpful Newest Oldest
  1. Anonymous
    2015-01-11T02:59:44+00:00

    If not familiar with macros and VBA, visit David McRitchie's website on

    "getting started".

    http://www.mvps.org/dmcritchie/excel/getstarted.htm

    In the meantime. . . . . .

    Make a copy of your workbook just in case because it is very difficult to undo

    the effects of a macro.

    To create a General Module, hit ALT + F11 to open the Visual Basic Editor.

    Hit CRTL + R to open Project Explorer.

    Find your workbook/project and select it.

    Right-click and Insert>Module. Paste the above code in there.

    Make any edits to Picture names and paths to the new picture.

    Save the workbook and hit ALT + Q to return to your worksheet or run the macro

    from the VBE.

    gORD

    Was this answer helpful?

    0 comments
  2. Anonymous
    2015-01-11T00:49:43+00:00

    Thanks Gord for the timely reply. Unfortunately I am not much of a programmer and am not exactly sure how to use the code you have provided. I assume it is a macro, but don't really know where to put it or how to use it.

    I do appreciate your help.

    Jack

    Was this answer helpful?

    0 comments
  3. Anonymous
    2015-01-11T00:03:30+00:00

    Untested code to delete duplicate pictures and replace on each sheet.

    Sub MyLogo()

    Dim vs As Worksheet

    On Error Resume Next

    For Each ws In ActiveWorkbook.Worksheets

        For i = 1 To ws.Shapes.Count

        If ws.Shapes(i).Name = "Picture 2" Then

            ws.Shapes(i).Delete

            ws.Pictures.Insert ("C:\Work Files\PicFolder\MyLogo.jpg")

        With ws.Shapes(ws.Shapes.Count)

            .Top = ws.Range("A1").Top

            .Left = ws.Range("A1").Left

            .LockAspectRatio = msoFalse

            .Height = 114#

            .Width = 222.75

        End With

        Else

        End If

    Next i

    Next ws

    End Sub

    Gord

    Was this answer helpful?

    0 comments