.. highlightlang:: us

.. index:: CreateObjectEmbedded

.. _createobjectembedded:

CreateObjectEmbedded
====================

.. us.tag  CreateObjectEmbedded NOTREADYGERMAN Programming.ActiveX New300

:ref:`CreateObjectEmbedded` erzeugt ein in eine UniPlot-Dokumentseite
eingebettetes Objekt.

.. function::  hOleItem = CreateObjectEmbedded(ssServerName, hDoc)

.. us.return

**Returnwert**

*hOleItem* ist die Zugriffsnummer des OLE-Objekts.

.. us.params

**Parameter**

.. uparam:: ssServerName

   *ssServerName* ist der Server-Name, z. B. ``"Excel.Sheet"``.

.. uparam:: hDoc

   *hDoc* ist die Zugriffsnummer des Dokuments in das das OLE-Objekt
   eingebettet werden soll.

.. us.example

**Beispiel**

Das folgende Beispiel geht davon aus, das Sie Excel 2000 oder Excel 97 auf Ihrem
Rechner installiert haben.

::

   def TestExcel()
   {
       hDoc = DocCreate()
       hPage = PageCreate()
       DocAddPage(hDoc, hPage)
       hLayer = PageGetAllLayers(hPage)[1]
       hExcel = CreateObjectEmbedded("Excel.Sheet", hDoc);
       LayerAddObjects(hLayer, hExcel);
       objXL = GetObject(hExcel);
       objXL.ActiveSheet.Cells(1, 1).Value = "x"
       objXL.ActiveSheet.Cells(1, 1).HorizontalAlignment = -4108; // xlCenter
       objXL.ActiveSheet.Cells(1, 1).Interior.Color = XL_RGB(197, 197, 197);
       objXL.ActiveSheet.Cells(1, 1).Borders.LineStyle = 1
       objXL.ActiveSheet.Cells(1, 2).Value = "y"
       objXL.ActiveSheet.Cells(1, 2).HorizontalAlignment = -4108; // xlCenter
       objXL.ActiveSheet.Cells(1, 2).Interior.Color = XL_RGB(197, 197, 197);
       objXL.ActiveSheet.Cells(1, 2).Borders.LineStyle = 1
       objXL.ActiveSheet.Range("A2:A6").Value = [1:5]'
       objXL.ActiveSheet.Range("B2:B6").Value = sin([1:5]')
       OBJSetPosSize(hExcel, [3, -8, 5, 2.8])
       PageReplot(hPage)
   }

.. seealso::
   :ref:`uberblick-programmierung`,
   :ref:`CreateObject`,
   :ref:`GetObject`,
   :ref:`OLEDoVerb`

:sub:`id-1052351`