Macros between two seprate windows (excel)
 

What I am trying to do, is to copy a spreadsheet from one Excel €œwindow€� and
paste it into a new €œwindow€�. But when I paste this, I need it to paste it as
a picture, or "Picture (Enhanced Metafile)." When I run this macro I get a
run time error '1004.' How can do this?

Macro:
' Select area

Range("A4:I46").Select
Selection.Copy

' Open new EXCEL SHEET
'
' Specifying 1 as the second argument opens the application in
' normal size and gives it the focus.

Dim RetVal
RetVal = Shell("C:\Program Files\Microsoft
Office\OFFICE11\EXCEL.EXE", 1)
' Application.Wait (Now + TimeValue("0:00:03"))



'
' Paste IU as picture so that the format is not changed and still contains
boxes
'
'Sheets("Sheet1").Select
Range("A1").Select
'ActiveSheet.Paste
ActiveSheet.PasteSpecial Format:="Picture (Enhanced Metafile)",
Link:=False _
, DisplayAsIcon:=False

How can I run a macro between two separate excel windows?

Macros between two seprate windows (excel)
 

Patrick,
You are looking at this problem in the wrong manner. It is quite simple.
Have 2 Excel windows open (first open excel make small then open excel again)
in the excel window that has your work in it simply right click on the tab
and make copy moving to the new workbook. should you have any other problems
with this just email me.

"Patrick" wrote:

What I am trying to do, is to copy a spreadsheet from one Excel €œwindow€� and
paste it into a new €œwindow€�. But when I paste this, I need it to paste it as
a picture, or "Picture (Enhanced Metafile)." When I run this macro I get a
run time error '1004.' How can do this?

Macro:
' Select area

Range("A4:I46").Select
Selection.Copy

' Open new EXCEL SHEET
'
' Specifying 1 as the second argument opens the application in
' normal size and gives it the focus.

Dim RetVal
RetVal = Shell("C:\Program Files\Microsoft
Office\OFFICE11\EXCEL.EXE", 1)
' Application.Wait (Now + TimeValue("0:00:03"))



'
' Paste IU as picture so that the format is not changed and still contains
boxes
'
'Sheets("Sheet1").Select
Range("A1").Select
'ActiveSheet.Paste
ActiveSheet.PasteSpecial Format:="Picture (Enhanced Metafile)",
Link:=False _
, DisplayAsIcon:=False

How can I run a macro between two separate excel windows?

Macros between two seprate windows (excel)
 

Patrick,
Do you really need to work with 2 instances of Excel ?
If yes, then use automation instead of Shell.

NickHK

"Patrick" wrote in message
...
What I am trying to do, is to copy a spreadsheet from one Excel "window"
and
paste it into a new "window". But when I paste this, I need it to paste it
as
a picture, or "Picture (Enhanced Metafile)." When I run this macro I get a
run time error '1004.' How can do this?

Macro:
' Select area

Range("A4:I46").Select
Selection.Copy

' Open new EXCEL SHEET
'
' Specifying 1 as the second argument opens the application in
' normal size and gives it the focus.

Dim RetVal
RetVal = Shell("C:\Program Files\Microsoft
Office\OFFICE11\EXCEL.EXE", 1)
' Application.Wait (Now + TimeValue("0:00:03"))



'
' Paste IU as picture so that the format is not changed and still contains
boxes
'
'Sheets("Sheet1").Select
Range("A1").Select
'ActiveSheet.Paste
ActiveSheet.PasteSpecial Format:="Picture (Enhanced Metafile)",
Link:=False _
, DisplayAsIcon:=False

How can I run a macro between two separate excel windows?