|
copy area on spreadhseet as picutre
Sub test8()
Sheets("summary").Select Range("b2:e142").Select Selection.CopyPicture _ Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture Sheets("EXPORTsmry").Select Range("b2").Select ActiveSheet.Paste End Sub this is the code i have, it is something that i found on here, and adapted for some charts... it works for the charts in this format (below): Sub test2() Sheets("duration chart").Select Sheets("duration Chart").ChartObjects("Chart 1").Select ActiveChart.CopyPicture _ Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture Sheets("EXPORT").Select Range("b49").Select ActiveSheet.Paste End Sub but when i tried to adapt it to copy a specific range (code at top) i get an error... any help would be greatly appreciated -- Thanks, Galen |
copy area on spreadhseet as picutre
What is the error? Are you sure the chart name is "Chart 1"..Try running this
in Step Into mode (F8) If this post helps click Yes --------------- Jacob Skaria "Galen" wrote: Sub test8() Sheets("summary").Select Range("b2:e142").Select Selection.CopyPicture _ Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture Sheets("EXPORTsmry").Select Range("b2").Select ActiveSheet.Paste End Sub this is the code i have, it is something that i found on here, and adapted for some charts... it works for the charts in this format (below): Sub test2() Sheets("duration chart").Select Sheets("duration Chart").ChartObjects("Chart 1").Select ActiveChart.CopyPicture _ Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture Sheets("EXPORT").Select Range("b49").Select ActiveSheet.Paste End Sub but when i tried to adapt it to copy a specific range (code at top) i get an error... any help would be greatly appreciated -- Thanks, Galen |
copy area on spreadhseet as picutre
Oops..I misread..To copy a range the below should do
Sub Macro() Sheets("summary").Range("b2:e142").Copy _ Sheets("EXPORTsmry").Range("b2") End Sub If this post helps click Yes --------------- Jacob Skaria "Jacob Skaria" wrote: What is the error? Are you sure the chart name is "Chart 1"..Try running this in Step Into mode (F8) If this post helps click Yes --------------- Jacob Skaria "Galen" wrote: Sub test8() Sheets("summary").Select Range("b2:e142").Select Selection.CopyPicture _ Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture Sheets("EXPORTsmry").Select Range("b2").Select ActiveSheet.Paste End Sub this is the code i have, it is something that i found on here, and adapted for some charts... it works for the charts in this format (below): Sub test2() Sheets("duration chart").Select Sheets("duration Chart").ChartObjects("Chart 1").Select ActiveChart.CopyPicture _ Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture Sheets("EXPORT").Select Range("b49").Select ActiveSheet.Paste End Sub but when i tried to adapt it to copy a specific range (code at top) i get an error... any help would be greatly appreciated -- Thanks, Galen |
copy area on spreadhseet as picutre
the reason i was trying to copy and paste as a picture is that data in the
range is subject to change, and i have a macro that goes through the original page and hides the blank rows, and i want to maintain that formattting when i copy and paste the range... is there a way to do that? -- Thanks, Galen "Jacob Skaria" wrote: Oops..I misread..To copy a range the below should do Sub Macro() Sheets("summary").Range("b2:e142").Copy _ Sheets("EXPORTsmry").Range("b2") End Sub If this post helps click Yes --------------- Jacob Skaria "Jacob Skaria" wrote: What is the error? Are you sure the chart name is "Chart 1"..Try running this in Step Into mode (F8) If this post helps click Yes --------------- Jacob Skaria "Galen" wrote: Sub test8() Sheets("summary").Select Range("b2:e142").Select Selection.CopyPicture _ Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture Sheets("EXPORTsmry").Select Range("b2").Select ActiveSheet.Paste End Sub this is the code i have, it is something that i found on here, and adapted for some charts... it works for the charts in this format (below): Sub test2() Sheets("duration chart").Select Sheets("duration Chart").ChartObjects("Chart 1").Select ActiveChart.CopyPicture _ Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture Sheets("EXPORT").Select Range("b49").Select ActiveSheet.Paste End Sub but when i tried to adapt it to copy a specific range (code at top) i get an error... any help would be greatly appreciated -- Thanks, Galen |
copy area on spreadhseet as picutre
The below method copy the formats too.If you mean copy only the formats...
Sheets("summary").Range("b2:e142").Copy Sheets("EXPORTsmry").Range("b2").PasteSpecial Paste:=xlPasteFormats, _ Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False If this post helps click Yes --------------- Jacob Skaria "Galen" wrote: the reason i was trying to copy and paste as a picture is that data in the range is subject to change, and i have a macro that goes through the original page and hides the blank rows, and i want to maintain that formattting when i copy and paste the range... is there a way to do that? -- Thanks, Galen "Jacob Skaria" wrote: Oops..I misread..To copy a range the below should do Sub Macro() Sheets("summary").Range("b2:e142").Copy _ Sheets("EXPORTsmry").Range("b2") End Sub If this post helps click Yes --------------- Jacob Skaria "Jacob Skaria" wrote: What is the error? Are you sure the chart name is "Chart 1"..Try running this in Step Into mode (F8) If this post helps click Yes --------------- Jacob Skaria "Galen" wrote: Sub test8() Sheets("summary").Select Range("b2:e142").Select Selection.CopyPicture _ Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture Sheets("EXPORTsmry").Select Range("b2").Select ActiveSheet.Paste End Sub this is the code i have, it is something that i found on here, and adapted for some charts... it works for the charts in this format (below): Sub test2() Sheets("duration chart").Select Sheets("duration Chart").ChartObjects("Chart 1").Select ActiveChart.CopyPicture _ Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture Sheets("EXPORT").Select Range("b49").Select ActiveSheet.Paste End Sub but when i tried to adapt it to copy a specific range (code at top) i get an error... any help would be greatly appreciated -- Thanks, Galen |
copy area on spreadhseet as picutre
thanks for your help
-- Thanks, Galen "Jacob Skaria" wrote: The below method copy the formats too.If you mean copy only the formats... Sheets("summary").Range("b2:e142").Copy Sheets("EXPORTsmry").Range("b2").PasteSpecial Paste:=xlPasteFormats, _ Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False If this post helps click Yes --------------- Jacob Skaria "Galen" wrote: the reason i was trying to copy and paste as a picture is that data in the range is subject to change, and i have a macro that goes through the original page and hides the blank rows, and i want to maintain that formattting when i copy and paste the range... is there a way to do that? -- Thanks, Galen "Jacob Skaria" wrote: Oops..I misread..To copy a range the below should do Sub Macro() Sheets("summary").Range("b2:e142").Copy _ Sheets("EXPORTsmry").Range("b2") End Sub If this post helps click Yes --------------- Jacob Skaria "Jacob Skaria" wrote: What is the error? Are you sure the chart name is "Chart 1"..Try running this in Step Into mode (F8) If this post helps click Yes --------------- Jacob Skaria "Galen" wrote: Sub test8() Sheets("summary").Select Range("b2:e142").Select Selection.CopyPicture _ Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture Sheets("EXPORTsmry").Select Range("b2").Select ActiveSheet.Paste End Sub this is the code i have, it is something that i found on here, and adapted for some charts... it works for the charts in this format (below): Sub test2() Sheets("duration chart").Select Sheets("duration Chart").ChartObjects("Chart 1").Select ActiveChart.CopyPicture _ Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture Sheets("EXPORT").Select Range("b49").Select ActiveSheet.Paste End Sub but when i tried to adapt it to copy a specific range (code at top) i get an error... any help would be greatly appreciated -- Thanks, Galen |
| All times are GMT +1. The time now is 05:33 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com