CreateObjectEmbedded

CreateObjectEmbedded erzeugt ein in eine UniPlot-Dokumentseite eingebettetes Objekt.

hOleItem = CreateObjectEmbedded(ssServerName, hDoc)

Returnwert

hOleItem ist die Zugriffsnummer des OLE-Objekts.

Parameter

ssServerName

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

hDoc

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

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)
}

Siehe auch

Überblick Programmierung, CreateObject, GetObject, OLEDoVerb

_id-1052351