WD2000: How Word Inserts an Excel Workbook by Using Drag-and-Drop Operation

• Microsoft Word 2000

SUMMARY

When you drag a Microsoft Excel 2000 file into Microsoft Word 2000, you may experience different behavior depending on how you drop the file in.

Case 1

Case 2

{EMBED Excel.Sheet.8}

MORE INFORMATION

By default, Word 2000 inserts Excel files as objects rather than tables when you have a document open. The object displays a preview of the workbook. You can resize the object to display more of the data by double-clicking it and then dragging a sizing handle.

Do one of the following appropriate for your situation:

• If you want to insert the Excel worksheet as a table into an existing Word document, follow these steps:



1. On the Insert menu, click File.



2. Select the Excel file you want and click Open.



-or-


• If you want to display the Excel worksheet as an icon, follow these steps:



1. On the Insert menu, click Object.



2. Click the Create from File tab.



3. Click to select the Display as icon check box.



4. Click Browse, select your file, and then click Insert.



5. Click OK.



-or-


• If you want to convert an embedded object and have it be displayed as an icon, follow these steps:



1. Click to select the object.



2. On the Edit menu, point to Worksheet Object and then click Convert.



3. Click to select the Display as icon check box.



4. Click OK.



-or-


• You can also use a Microsoft Visual Basic for Applications macro to convert the worksheet object to an icon.


Microsoft provides programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes that you are familiar with the programming language being demonstrated and the tools used to create and debug procedures. Microsoft support professionals can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific needs. If you have limited programming experience, you may want to contact a Microsoft Certified Solution Provider or the Microsoft fee-based consulting line at (800) 936-5200. For more information about Microsoft Certified Solution Providers, please see the following page on the World Wide Web:



http://www.microsoft.com/mcsp/

For more information about the support options available from Microsoft, please see the following page on the World Wide Web:



http://www.microsoft.com/support/supportnet/overview/overview.asp

The following example macro demonstrates this:

NOTE: Make sure you select the object before running this macro.

Sub ConvertObject()
    If Selection.Type = wdSelectionShape Then
        Selection.ShapeRange(1).ConvertToInlineShape.Select
    End If
    Selection.InlineShapes(1).OLEFormat.ConvertTo _
       ClassType:="Excel.Sheet.8", DisplayAsIcon:=True, _
       IconFileName:="C:\WINDOWS\Application Data\Microsoft" _
       & "\Installer\{00000409-78E1-11D2-B60F-006097C998E7}\xlicons.exe", _
       IconIndex:=1, IconLabel:="Microsoft Excel Worksheet"
End Sub 


NOTE: If you do not select the embedded object before running the ConvertObject macro, the following error message appears:



Run-time error '5941':

The requested member of the collection does not exist.

For more information about using the sample code in this article, click the article number below to view the article in the Microsoft Knowledge Base:

Q212536 OFF2000: How to Run Sample Code from Knowledge Base Articles

Additional query words:

Keywords : kbdta wd2000
Version : WINDOWS:2000
Platform : WINDOWS
Issue type : kbinfo