| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Use of macros on spreadhseet copies | Excel Discussion (Misc queries) | |||
| Greyed out area on the spreadhseet | Excel Discussion (Misc queries) | |||
| error: "the copy area & the paste area are not the same size & sh | Excel Discussion (Misc queries) | |||
| Error handler if copy area different from paste area | Excel Programming | |||
| how to put the subtotal of the sum and count in one spreadhseet? | Excel Worksheet Functions | |||
![Galen[_2_] is offline](https://www.excelbanter.com/images/SultanThemeVB3R/statusicon/user_offline.gif)
Linear Mode
