"COPY" sheet excludes graphs

[jpf5911]

I have a sheet in a workbook that includes a bunch of graphs (as objects, I guess).

I want to create multiple copies of the same sheet to facilitate my project, but when I make a "COPY" of the sheet, the graphs do not show up on the new sheet.

Thanks,

J

 

[yky]

Do you do it manually? If so, you want to click on the rectangle to the left of column heading A and on top of the row heading 1. If you click the right rectangle, the entire sheet area will change color, a little blueish. Now, you can copy and paste. All pictures and charts will be pasted. Pictures tend to change sizes after being pasted. If you have a lot of pictures, it'll be a pain to adjust them to their original sizes one by one.

 

[My Aswer Is This]

Run this script from the sheet you want copied:

Sub Copy_Sheets()
'Modified 5/6/18 3:15 AM EDT
Dim n As String
Dim ans As Long
n = ActiveSheet.Name
ans = InputBox("Make this many copies", "Make copies of sheet named  " & n, "5")
    For i = 1 To ans
        Sheets(n).Copy After:=Sheets(Sheets.Count)
        ActiveSheet.Name = "Copy" & ActiveSheet.Index
    Next
End Sub