 |
 | Home | Contact Us | FAQ | Search & Site Map | Link to Us |
 | Sign In | Join | Other 45 Sites in Network |
| HomeDiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWordDirectoryUser Groups Related Topics Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ... |
MS Office Forum / Word / Programming / February 2006asp & PasteSpecial
Hi, I'm writing an asp application in wich I dynamically create an Excel-graph. Now I'd like to copy that graph, open word and paste it on the apropiate bookmark. I use the following lines of code to copy the graph: oExcelSht.ChartObjects("Graph 1").Activate ActiveChart.ChartArea.Select ActiveChart.ChartArea.Copy Then I open a word document to paste that graph into it, but I don't find the correct syntax to do it. I created a macro in word to see the code it produced, but don't manage to transform it into correct asp-code. Can someone help me please? oWordDoc.Bookmarks("product").Range.PasteSpecial Link = False, DataType = wdPasteBitmap, Placement = wdInLine, DisplayAsIcon = False Thanks Hi Hans, How is the code you post not working for you through an asp interface? Are you able to save this Excel workbook with the graph to disk? If you are, then I recommend NOT going over the clipboard (Insert/Object/From File), or replicating the result you'd get if you went over PasteSpecial with a link, then break the link (which should give you a graphic in the document). Or create the graph directly in the Word document, then unlink the OLE field code to turn it into a graphic. Does any of these sound like a possible approach? > I'm writing an asp application in wich I dynamically create an > Excel-graph. [quoted text clipped - 14 lines] > oWordDoc.Bookmarks("product").Range.PasteSpecial Link = False, DataType > = wdPasteBitmap, Placement = wdInLine, DisplayAsIcon = False Cindy Meister INTER-Solutions, Switzerland http://homepage.swissonline.ch/cindymeister (last update Jun 8 2004) http://www.word.mvps.org This reply is posted in the Newsgroup; please post any follow question or reply in the newsgroup and not by e-mail :-) Hi Cindy, This could be a solution, but the problem is that I have to create hundreds of graphs that will be dynamically altered, so I should save the excel-file each time, insert the object in word; open excel again to change the graph, close it again end so on. Instead I created the following code to do the job, but unfortunately I get an error (see below): oExcelSht.ChartObjects("Graph 1").Activate oExcelApp.ActiveChart.ChartArea.Select oExcelApp.ActiveChart.ChartArea.Copy 'Create an instance of Word Application set oWordApp = Server.CreateObject("Word.Application") 'Make wordApp visible oWordApp.visible = true oWordApp.DisplayAlerts = false 'New document (based on sWordTemplateFile) set oWordDoc = oWordApp.Documents.Add(sWordTemplateFile) 'Paste chart oWordApp.selection.paste 'Save document oWordApp.ActiveDocument.SaveAs sWordTargetFile 'Quit Word oWordDoc.close oWordApp.Quit set oWordDoc = Nothing set oWordApp = Nothing The error I get is: Runtime error 4605: This method or property is not valid because the Clipboard is empty or not valid. Do you know why I get this error? Cindy, I found what caused the error. For some reasen word was opened by a different user as the one that opened excel. Obviously the clipboard is empty in that case!!! Thanks for your effort anyway!!! Hans |
Reply to this Message |
 Sign In
 Join
 My Latest Posts My Monitored Threads My Blog My Photo Gallery My Profile My Homepage Start New Thread Enable EMail Alerts Rate this Thread
|
©2008 Advenet LLC Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.